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7; REXOS.MCR[,] MICRO 20 (156) METIS CONTROL MICROCODE - MACH ITI PAGE 2 
; REX0O5.MIC 19:13 27-JULY-1984 FIELD DEFINITIONS 


Pel 7; <MEIX.REX>REXOS.MIC.3, 27-Jul-84 19:06:27, Edit by LOUGHEED 

FP 2 ; Implement timeout of Massbus transfers. Set Q register to zero at the start 
Ped ; of a transfer (when GO is asserted) and increment it every pass through 

3; 4 ; the IDLE loop. If the Q register becomes negative, set bit 11 in the error 
peo ; register and shutdown the transfer. 

3; 6 ; Clean up and speed up of control function dispatch table 

ae | 7<METIS.REX>REXO4.MIC.2, 12-Jul-84 20:55:16, Edit by LOUGHEED 

28 ; Control Function microcode no longer checks for TX or RX available 

7 9 +; before setting GO. This allows two data boards on the same controller. 

7 10 ; Bump contents of version register - we are now REX version 1003 

7 11 
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MEIS CONTROL MICROCODE - MACH II PAGE 3 
FIELD DEFINITIONS 


-TITLE "MEIS Control Microcode - Mach II" 
;Write PROM files using WREX2.SAI 
*MICROCODE VERSION 001003 

7;Comments and reminders 


;Register 22 is now the Microcode Version Register. 
?The high byte is the major rev. and the low byte is the minor rev. 


;Writing to the Receiver Buffer Absolute Address Register, register 57, causes 
ythe Rbuf Pointer, which is internal to the Data Board, to be loaded into 
;the Diagnostic Register, register 56. 


719-AUG-82 Added jump field specifications (J/) to field select branches. 
7 (e.g. COND/REG SEL, J/R.FIELD) 


715-SEP-82 Fixed Absolute Address Register write. It now primes the register 
ifor a subsequent read. 

?The Diagnostic register is now the Q-register in the 2901’s. 

;Fixed some comma problems (added a few that were missing, deleted a few extra) 
;Reversed a couple of COND/ZERO tests that were backwards. 


724-NOV-82 Created REX03. Changed PEXIT to return to IDLE via a jump, rather 
7than a COND/DEMAND. Changed all Control Function code to return via a 
;COND/DEMAND, J/IDLE. (The beginning of a Control Register write insures that 
*TRA is set long before the Control Function return.) 


; REXO5S.MCR[, } MICRO 20 (156) METIS CONTROL MICROCODE - MACH II PAGE 4 


7; REXO5.MIC 19:13 27-JULY-1984 FIELD DEFINITIONS 
7 43 
7 644 ; EXPLANATION OF NEXT ADDRESS LOGIC 
7 45 
7; 46 ; If (TEST SELECT GO .AND. GO) then RSEQR ADRS is from RMR field, 
7 47 ; else RSEQR ADRS is from field selected by RCON TEST SEL 5 and 6: 
7; 48 ; 
7 49 ; 6 5 RSEQR ADRS field 
7 50 ; See, seep tS ecasa ass 
; 51 : 0 0 JUMP ADRS 
fOi2 ‘ 01 MASS REG SEL 
£253 : 10 RBUS (for Function Select) 
7; 54 - 11 RMR 
Pod ? 
; 656 ; The least significant 2 bits of the above fields are selected by 
; 57 ’ RCON TEST SELECT 1-4: 
* 358 ; 
7; 59 : 4321 RSEQR ADRS field, bits 1 and 0 
7 60 ; et te rr rr ne eee 
; 61 : 0000 JUMP ADRS 1 JUMP ADRS 0 
7 62 ; 0001 MASS REG SEL 1 MASS REG SEL 0 
7 663 ; 0010 RBUS 1 RBUS 0 
7; 64 : 0011 RMR 1 RMR 0 
7 65 ; 0100 CPA GO 
7 66 ; 0101 ACQ 1 ACQ 0 
3; 67 : 0110 EXC EOP 
7; 68 ; 0111 END EBL DEM 
7 69 ; 
7; 70 ? 1000 JUMP ADRS 1 ZERO 
; 71 ; 1001 JUMP ADRS 1 NEG 
3; 72 ; 1010 JUMP ADRS 1 XPORT REPLY 
3. 73 ; 1011 JUMP ADRS 1 DPA 
7; 74 ; 1100 JUMP ADRS 1 ADD TRAILER L 
US ; 1101 JUMP ADRS 1 MBC WRITE MODE 
3 76 ? 1110 JUMP ADRS 1 SELECT BOARD 1 
; 77 ? 1111 JUMP ADRS 1 CPA 
; 78 
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MEIS CONTROL MICROCODE - MACH II PAGE 5 
FIELD DEFINITIONS 


.TOC "Field Definitions" 
;Pipeline next-address field 


;The Jump field is now 9 bits (512 words) 
J/=0,9,8,+ 


;Condition code selection 


COND/=0,6,15,D 


JUMP_ADRS =00 ;default field select 
REG SEL =21 yneeds J/ field 
FUNC_SEL =42 ineeds J/ field 

RMR =60 ;selects the RMR field 
spare03 =03 

CPA =04 

DPA =05 

NEG =06 

ZERO =07 

XPORT =10 

DEMAND =11 

ADD_TRAILER_L =12 

SEL BOARD 1 =13 

GO.MBC_WRITE =14 

ACQ1 .ACQO =15 

EXC. EOP =16 

END_EBL.DEM =17 


: REXO5.MCR[, ] MICRO 20 (156) METIS CONTROL MICROCODE - MACH II PAGE 6 
; REXO5.MIC 19:13 27-JULY-1984 FIELD DEFINITIONS 


113 7 Register allocation in 2901 ALU 


see 


114 
7115 ALUA/=17,4,47,D 
7; 116 control.reg =00 *;MEIS control register 
7 117 error.reg =01 ;MEIS error register 
; 118 ether.adrs =02 7;MEIS ethernet address register 
7; 119 abs.adrs =03 *;MEIS receiver buffer absolute address register 
7 120 
7; 121 rouf.adrs =04 7MEIS receiver buffer address register 
7; 122 rbouf.data =05 7MEIS receiver buffer data register 
7) 123 rbouf.status =06 *;MEIS receiver buffer status register 
7; 124 version =07 7;MEIS microcode version register 
76125 
7; 126 header =10 ;MEIS packet header count register 
3127 trailer =11 ;MEIS packet trailer register, transmit 
7 128 slave.id =12 ;MEIS slave id register 
7.6129 old.status.reg =13 ;previous status register (for ATA detect) 
7 130 
7 131 bitoo =14 yoit 00 = 1 
7) 132 bitd3 =15 fbit 03 = 1 
7) 133 bitl2 =16 roit 12 = 1 
7; 134 temp =17 ;temporary holding register 
7135 
; 136 ALUB/=17,4,43,D 
76137 control.reg =00 ;MEIS control register 
; 138 error.reg =01 7;MEIS error register 
7 139 ether.adrs =02 ;MEIS ethernet address register 
7 140 abs,adrs =03 ;MEIS receiver buffer absolute address register 
7; 141 
7 142 rbuf.adrs =04 ;MEIS receiver buffer address register 
7 143 rbuf.data =05 ;MEIS receiver buffer data register 
7; 144 rbuf.status =06 ;MEIS receiver buffer status register 
7 145 version =07 7MEIS microcode version register 
7; 146 
7 147 header =10 ;MEIS packet header count register 
7; 148 trailer =11 ;MEIS packet trailer register, transmit 
7; 149 slave.id =12 7;MEIS slave id register 
7 150 old.status.reg =13 ;previous status register (for ATA detect) 
p51 
7 6152 bitoo =14 wbit 00 = 1 
76153 bito3 =15 roit 03 = 1 
7; 154 bitl2 =16 yoit 12 =1 

155 temp =17 ;temporary holding register 


7 156 
; 157 


*; REXOS.MCR[,] MICRO 20 (156) MEIS CONTROL MICROCODE - MACH II PAGE 7 
7; REXO5.MIC 19:13 27-JULY-1984 FIELD DEFINITIONS 


158 ; 2901 function field 


7-59 

7 160 ALUFN/=47, 6,55,D 

; 161 addAQ =00 
7 162 addAB =01 
7; 163 addZQ =02 
7 164 addZB =03 
7; 165 addZA =04 
7; 166 addDA =05 
7; «167 

7; 168 subBA =11 
7; 169 subBZ =13 
7; 170 subAzZ =14 
3; 171 subAQ =20 
; 172 subAB =21 
3}. 173 

7 6174 bisAQ =30 
7.175 bisAB =31 
; 176 Q =32 
; 177 B =33 
; 178 A =34 
; 179 D =37 
7; 180 

; 181 andAB =41 
7 182 andDA =45 
7; 183 Z =47 
; 184 bicAB =51 
7; 185 exnAB =71 
; 186 notA =74 
; 187 notD =77 
; 188 

; 189 72901 destination field 
; 190 

7 191 ALUDEST/=1,3,63,D ;BITS 61,62,63 IN REX.MIC ARE MOVED IN WREX TO 63,48,49 
7 192 Qreg =0 
7 193 nop =1 
7; 194 Brama =2 
7 195 Bram =3 
; 196 BQdown =4 
; 197 Bdown =5 
; 198 BQup = 

7; 199 Bup = 

7; 200 

7 201 72901 ALU control 

7 202 

7; 203 CARRY/=0,1,60,D ;BIT 60 IN REX.MIC IS MOVED IN WREX TO 62 
3; 204 


205 


; REXOS.MCR[,] MICRO 20 (156) MEIS CONTROL MICROCODE - MACH II PAGE 8 
; REXOS.MIC 19:13 27-JULY-1984 FIELD DEFINITIONS 


7 206 7; Status control 


7 207 

7; 208 go/=1,1,71,D 

7 209 Fei 

7 210 T=0 

7 6 211 go "go/T" 

7 212 comp error L/=1,1,70,D 

7 213 F=1 

7 214 T=0 

7 215 comp error L "comp error L/T" 
7 216 rx_pakt_enb 0/=1,1,69,D 

3,217 Fal 

; 218 T=0 

7; 219 xx pakt_enb_0 "rx pakt_enb 0/T" 
7; 220 rx_pakt_enb_1/=1,1,68,D 

7 221 F=1 

3 222 T=0 

* 223°) rx_pakt_enb_ 1 “rx pakt_enb 1/T" 
+ 224 mbc_write mode/=1,1,67,D 

7 225 P=1 

7 226 T=0 

+ 227 = mbc_write_mode “moc _write_mode/T" 
3 228 

7; 229 STATUS/=0,1,32,D 

7 230 F=0 

3 6231 T=1 


7 232 =©6 clear_status "STATUS/F" 
*; 233 set_status "STATUS/T" 
7 234 
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; Reon request control 


PAGE 9 


7;Note that the Network Interface board microcode uses the inverted octal 
70f each Rcon Request code, 


RCON_SET_REQ/=1,1,22,D 
F=1 
T=0 
RCON_REQ/=0,3, 66,D 


;THESE REQUIRE AN XPORT 


LOAD, 


end_mass write trailer=00 


end mass write trailer 


ether _adrs read=01 
ether _adrs read 


flush_tx bufr=02 
flush_tx_bufr 


flush_rx_pakt=03 
flush_rx_pakt 


drive _clear=04 
drive_clear 


bufr_adrs_load=05 
bufr_adrs_load 


bufr_ data_load=06 
bufr_data_load 


ether adrs_load=07 
ether adrs_ load 


;THESE REQUIRE AN XPORT 
pakt_ status read=0 
pakt_status_read 


slide _read=1 
slide_read 


start_mass read=2 
start_mass_ read 


end_mass write=3 
end_mass write 


bufr _ptr_read=4 
bufr_ptr_read 


end_mass read=5 
end_mass read 


“rcon_req/end_mass write trailer,RCON SET REQ/T" 
"recon req/ether_adrs_ read,RCON SET REQ/T" 
“reon_req/flush_tx_bufr,RCON SET REQ/T" 
"rcon_req/flush_rx_pakt,RCON_SET REQ/T" 
"rcon_req/drive_clear,RCON_SET_REQ/T" 
"rcon_req/bufr_adrs_load,RCON_SET_ REQ/T" 
"rcon_req/bufr_data_load,RCON SET REQ/T" 


"rcon_req/ether_adrs_ load,RCON_SET REQ/T" 
READ REQ, 


"RCON_REQ/pakt_status_read,RCON_SET_REQ/T" 
*RCON REQ/alide_read,RCON SET REQ/T" 
"RCON_REQ/start_mass_read,RCON_SET_REQ/T" 
"RCON_REQ/end_mass write,RCON_SET REQ/T" 
"RCON_REQ/bufr ptr _read,RCON SET REQ/T" 


"RCON_REQ/end_mass_read,RCON SET REQ/T" 


value 


; REXOS.MCR[,] MICRO 20 (156) MEIS CONTROL MICROCODE - MACH II PAGE 10 
; REXOS.MIC 19:13 27-JULY-1984 FIELD DEFINITIONS 


289 ; Rbus read/load control 


7 


7 290 

3; 291 asr_read/=1,1,31,D 

3 292 F=1 

7 293 T=0 

3; 294 asr_ read "“asr read/T" 

7 295 biker read/=0,1,30,D 

7 296 F=0 

7 297 T=1 

i; 298 biker read "biker read/T" 
7; 299 bmode_read/=1,1,29,D 

7 300 F=1 

7 301 T=0 

¢ 302 bmode_read "pmode_read/T" 
7; 303 cmax read/=1,1,28,D 

7 304 F=1 

7 305 T=0 

7; 306 cmax_read "cmax read/T" 
; 307 maint _read/=1,1,27,D 

7; 308 F=1 

7 309 T=0 

7; 310 maint_read "maint read/T" 
; 6 311 ralu_read/=1,1,26,D 

7 312 F=1 

7 313 T=0 

7; 314 continue "ralu_read/F" #no operation 
7 315 ralu_read "ralu_read/T" 
3; 316 status_read/=1,1,25,D 

7; 317 F=1 

r 318 T=0 

; 319 status _read "“status_read/T" 
7; 320 swreg read/=1,1,24,D 

7 321 P=1 

3 322 T=0 

7 323 swreg read "swreg_read/T" 
7 324 dpe_read/=1,1,59,D 

7 325 F=1 

+ 326 T=0 

+ 327 = ©=©dpc_read "dpc_read/T" 

3; 328 xport_read_req/=1,1,58,D 

7 329 F=1 

7 330 T=0 

7 331 xport_read_req "xport_read_req/T" 
7 332 xport_read/=1,1,57,D 

7 333 Fe1 

7; 334 T=0 

7 335 xport_read "xport_read/T" 
7 336 © ©=©0xport_load/=1,1,56,D 

* 337 P=1 

; 338 T=0 

; 339 xport_load "xport_load/T" 
3; 340 biker _load/=0,1,39,D 

7 341 P=0 

7 342 T=1 

7; 343. biker_load "biker load/t” 
7 344 bheadr_load/=0,1,38,D 

7 345 F=0 

7; 346 T=1 

7 347 bheadr_load "bheadr_ load/T" 


7; 348 bmode_load/=1,1,37,0D) 
7; 349 F=1 


350 
351 
352 
353 
354 
355 
356 
357 
358 
359 
360 


T=0 
bmode_load "bmode_ load/T" 
cmax_load/=1,1,36,D 

F=1 

T=0 
emax_ load "cmax_load/T" 
maint _load/=1,1,35,D 

F=1 

T=0 
maint load "maint load/T" 
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FIELD DEFINITIONS 


; Other function 


bits 


set_ebl/=1,1,21,D 


F=1 
T=0 
set_ebl 


"set_ebl/T" 


set_tra/=0,1,20,D 


F=0 
T=1 
set_tra 


"set _tra/T" 


enb ata/=0,1,19,D 


F=0 
T=1 
enb ata 
ata_clear_ enb/=1 
F=1 
T=0 
ata_clear_enb 
dpa_err_clear/=1 
F=1 
T=0 
dpa_err clear 
Id_sel/=0,1,33,D 
DRIVE=0 
SERIAL=1 
serial sel 
drive sel 


"enb_ata/T" 
,1,18,D 


"ata_clear enb/T" 
,1,17,D 


"dpa err clear/T" 


"ID _SEL/SERIAL" 
"ID _SEL/DRIVE" 


CPA_CLK/=0,1,23,D 


F=0 

T=1 
CPA_CLK 
rmr_test_go/=1,1 

F=1 

T=0 
rmr_test_go 
rmr_load/=1,1,16 

F=1 

T=0 
rmr_load 


"CPA_CLK/T" 
19,D 


“rmr_ test_go/T" 
7D 


"rmr_ load/T" 


11 


REXO5. 
REXO5, 


0000, 


oool, 


0002, 
0003, 
0004, 
0005, 
0006, 


0007, 


0010, 


0011, 
0012, 
0013, 


0014, 
0015, 
0016, 
0017, 


0020, 


0021, 


0022, 
0023, 
0024, 


0025, 
0026, 
0027, 


MCR[, ] 


MIC 19:13 27-JULY-1984 


0014,0346, 6721,6017,1177,1402 


0024,0246, 6730,1437,1177,1435 


0034,0306, 6721, 6377, 1637,0437 
0044,0346, 7721, 6137,1177,1437 
0054,0346, 7721, 6157,1177,1437 
0064,0346, 7721, 6377,1177,0037 
0074,0346, 7721,6237,1177,1437 


0104,0346,7721,6057,1177,1437 


0114,0346, 6721, 6301, 0117, 5437 


0124,0346, 6721, 6334, 0717,3437 
0134,0346, 6721, 6337, 0677,3437 
0144,0346, 6721, 6337, 0677, 3437 


0154,0346, 6721, 6354,0717, 2437 
0164,0346, 6721, 6357, 0677, 2437 
0174,0346, 6721, 6357, 0677, 2437 
0204,0346, 6721, 6357, 0677, 2437 


0214,0346, 7721, 6374,1177,0437 


0224,0146, 7721, 6377,1177,0437 


0234,0346, 6721,6176,0717, 2437 
0244,0346, 6721, 6177, 0677, 2437 
0254,0346, 6721, 6177, 0677, 2437 


0264,0346, 6721,6177,0077,5437 
0274,0346, 6721,6177, 0077,5437 
0304,0346, 6721,6177, 0077, 5437 
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INITIALIZATION 


.TOC "Initialization" 


Init: 


RMRLD >: 


;Clear Go, the Receiver Packet Enables for both Network Interface boards, 
;MBC Write Mode, and the Control register. 

clear_status, go, rx_pakt_enb_0, rx_pakt_enb_1, mbc_write mode, ralu_read, 
ALUA/temp, ALUB/control.reg, ALUFN/Z, ALUDEST/Bram 


?Clear the DPA flip-flop and the Composite Error bit in the Status register 
7;Clear the Error, Maintenance, Byte Count, Mode, and Header registers 
7;Clear the control massbus transceiver (CMAX) output port 

dpa_err clear, set_status, comp error L, 

ralu_read, maint_load, biker _load, bmode_load, bheadr_load, cmax_load, 
ALUA/temp, ALUB/error. reg, ALUFN/Z, ALUDEST/Bram 


7Clear ATA, no matter which device number we are, 
ralu_read, ata_clear_enb, 

ALUA/temp, ALUB/temp, ALUFN/exnAB, ALUDEST/nop 
7;Clear the Receiver Buffer Data register 
ALUA/temp,ALUB/rbuf .data, ALUFN/Z, ALUDEST/Bram 
7Clear the Receiver Buffer Status register 
ALUA/temp, ALUB/rbuf.status, ALUFN/Z,ALUDEST/Bram 
7Clear the Diagnostic (Q-reg) register 
ALUA/temp, ALUB/temp, ALUFN/2,ALUDEST/Qreg 

7;Clear the Trailer register 

ALUA/temp, ALUB/trailer, ALUFN/Z, ALUDEST/Bram 
;Clear the Ethernet Address register 

ALUA/temp, ALUB/ether.adrs,ALUFN/Z,ALUDEST/Bram 


;Add 1 to error.reg (=0) and store the result as bit00 
ralu_read, ALUA/error.reg, ALUB/bit00,ALUFN/add2A, ALUDEST/Bram, CARRY/1 
7Create bitd3 

ralu_read, ALUA/bit00, ALUB/bit03,ALUFN/A, ALUDEST/Bup 
ralu_read, ALUA/temp,ALUB/bit03, ALUFN/B, ALUDEST/Bup 
ralu_read, ALUA/temp, ALUB/bit03, ALUFN/B, ALUDEST/Bup 
7;Create bitl2 

ralu_read, ALUA/bit00,ALUB/bit12,ALUFN/A, ALUDEST/Bdown 
ralu_read, ALUA/temp,ALUB/bit12, ALUFN/B, ALUDEST/Bdown 
ralu_read, ALUA/temp,ALUB/bit12,ALUFN/B, ALUDEST/Bdown 
ralu_read, ALUA/temp,ALUB/bit12,ALUFN/B, ALUDEST/Bdown 


7;Set up the field for the RMR address register (see RMR: ) 
7This combination of ALUB/A yields 374 as the RMR address 
ALUB/17,ALUA/14 

;Now load the RMR address register with the RMR address (374) 
rmr_load 


;Start creating the microcode version register 

7;First, let version = 001000 

ralu_read, ALUA/bit12,ALUB/version, ALUFN/A, ALUDEST/Bdown 

ralu_read, ALUA/temp, ALUB/version, ALUFN/B, ALUDEST/Bdown 

ralu_read, ALUA/temp, ALUB/version, ALUFN/B, ALUDEST/Bdown 

;Now add the version register to itself N times so that the Major Revision 
;Version field equals N. 

;<if used, the code would be:> 

7<ralu_read, ALUA/version, ALUB/version, ALUFN/addAB, ALUDEST/Bram, CARRY/0> 
;Now increment the version register M times so that the Minor Revision 
field equals M. 

ralu_read, ALUA/temp,ALUB/version, ALUFN/add2B, ALUDEST/ Bram, CARRY/1 
ralu_read, ALUA/temp,ALUB/version, ALUFN/addZB, ALUDEST/ Bram, CARRY/1 
ralu_read, ALUA/temp,ALUB/version, ALUFN/addZ2B, ALUDEST/Bram, CARRY/1 


U 0030, 


U 0032, 


U 0033, 


U 0034, 


U 0035, 


0324,0344,7721,6377,1175,0477 


0324,4346, 7721, 6257,0773,1437 


0344,0344,7721,6377,1175,0437 


0344,4346, 7721,6157,0773,1437 


0364,4746,7721,6377,1177,0437 


ws 


ST eT eT eT TT 


wa Ne Ns 


~e 


462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 
478 
479 
480 


Dregs: 


Slide: 


7;Request the Slave ID of the selected Network Interface board 
xport_ read req, slide read 


;Loop here until we get it. 

*This will write the Xport into the Slave ID register many times. 
;Only the last time will matter. 

COND/xport, J/Slide, xport_read, 

ALUA/temp, ALUB/slave.id,ALUFN/D,ALUDEST/Bram 

;Request the Packet Status of the selected Network Interface board 
xport_read_req, pakt_status_read 


7;Same sort of loop as above. 
COND/xport, J/Pktst, xport_read, 

ALUA/temp, ALUB/rbuf.status, ALUFN/D, ALUDEST/Bram 
7And now let us be off to the Idle loop. 
COND/DEMAND, J/IDLE 


sa fe 


U 


U 


U 


U 


U 


U 


U 


U0 


U 
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0036, 


0037, 


0040, 


0041, 


0042, 


0043, 


0031, 


0044, 


0046, 


0047, 


0404,6746, 5721,6377,1777,1437 


7005,0746, 7721,6377,1177,0437 


0464,4766, 6721,6277, 0637,0437 


0444,0346, 6721, 6036, 0637,1435 


0314,0346, 6721, 6021, 0677, 2437 


0424,0346, 6721, 6036, 0637,1435 


0444,0346, 6721, 6036, 0637,3435 


0464,4766, 6721, 6277, 0637,0437 


0504,6346, 7721,6277,1717,1437 


7005,0746,7721,6277,1717,1437 


et eT ee ee Td 


eT] 


<e 


eT Ty 


we See Se te Ne 


Se en eT ee ee ee ee ee Se ee Ty 


Se Ne Ne Se 


7 


Se Se Me fe 


CTT i ee eT eT eT TT) 
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481 
482 
483 
484 
485 
486 
487 
488 
489 
490 
491 
492 
493 
494 
495 
496 
497 
498 
499 
500 
901 
502 
503 
504 
905 
506 
507 
508 
509 
510 
511 
512 
513 
514 
915 
516 
517 
518 
5919 
520 
521 
922 
923 
924 
925 
526 
527 
528 
929 
530 
931 
532 
533 
934 
535 
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IDLE LOOP 


-TOC "Idle Loop " 


IDLE: 


ACQ.X: 


ACQO: 


ACQ1: 


ACQO1: 


ACQ1.1: 


ACQO.1: 


DEM1 .X: 


There are two ways to return to Idle: 

1. Via a J/IDLE: this postpones checking DEMAND for a while, in case 
TRA has not yet cleared it . 

2. Via a COND/DEMAND, J/IDLE: this looks for DEMAND immediately, for 

: returns TWO (2) or more instructions after setting TRA, 


ST i ee 


7;No DEMAND (or maybe just no test for it): Test for ACQ errors. 
;Read the status register to check for an ATA condition. 
COND/ACQ1.ACQ0, J/ACQ.X, status read, 

ALUA/temp, ALUB/temp, ALUFN/notD, ALUDEST/Bram 

;DEMAND: service the appropriate register. 

COND/REG SEL, J/R.FIELD 


7;No ACQ errors: test DEMAND. 

7Finish checking the Status register for an ATA condition, 
COND/demand, J/DEM1.X, ralu_read, enb ata, 

ALUA/temp, ALUB/old.status.reg,ALUFN/bisAB, ALUDEST/nop 
;ACQO error: go to ACQO.1 to test DEMAND and check STATUS. 
;Set Acqusition Error 0 (bit 12) the Error register. 

7Set Composite Error in the Status register 

J/ACQO.1, clear_status, comp_error_L, ralu_read, 
ALUA/bit12, ALUB/error.reg,ALUFN/bisAB, ALUDEST/Bram 

7ACQl1 error: go to ACQ1.1 to set the Error register bit and comp error, 
7Shift the Error register down one bit (end-around-shift). 

J/ACQ1.1, ralu_read, 

ALUA/error.reg, ALUB/error.reg,ALUFN/B, ALUDEST/Bdown 

7ACQO and 1 error: Set Acqusition Error 0 (bit 12) the Error register. 
7Set Composite Error in the Status register 

7Then go to ACQ1 to set Acqusition Error 1. 

J/ACQ1, ralu_read, clear status, comp _error L, 
ALUA/bit12,ALUB/error.reg,ALUFN/bisAB, ALUDEST/Bram 


7Set Acqusition Error 1 (bit 13) the Error register by setting bit 12 


vin the downshifted Error register and then shifting the register back up. 


7Set Composite Error in the Status register 

ralu_read, clear_status, comp_error L, 
ALUA/bit12,ALUB/error.reg,ALUFN/bisAB, ALUDEST/Bup 

7Test DEMAND 

7Finish checking the Status register for an ATA condition, 
COND/demand, J/DEM1.X, ralu_read, enb ata, 

ALUA/temp, ALUB/old.status.reg,ALUFN/bisAB, ALUDEST/nop 


7No DEMAND: branch on GO and MBC WRITE 

;The current Status register now becomes the old Status register 
COND/GO.MBC_WRITE, J/GO.W.X, 

ALUA/temp, ALUB/old.status.reg,ALUFN/notA, ALUDEST/Bram 

;DEMAND is set: service the appropriate register. 

7The current Status register now becomes the old Status register 
COND/REG SEL, J/R.FIELD, 

ALUA/temp, ALUB/old.status.reg, ALUFN/notA, ALUDEST/Bram 


aos 


U0 
U 


U 


0 


U 


U 


U 


U 


0 


0 


U 
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0050, 
00S1, 
0052, 
0053, 


0054, 


0055, 


0056, 


0057, 


0045, 


0060, 


0061, 
0062, 


0063, 


19:13 27-JULY-1984 


0364,4746, 7721,6377,1177,0437 
0364,4746, 7721,6377,1177,0437 
0544,4746, 7721, 6377, 0057, 4037 
0644,4746, 7721, 6377, 0057, 4037 


0564, 3346, 7721, 6376, 0717, 2437 


7005,0746, 7721,6377,1177,0437 


0604,7346,7721,6377,1177,0437 


0454,0346, 7721, 6037, 0637,1437 


1044,7740, 7721, 6217,1175,1677 


0364,4746, 7721, 6377,1177,0437 


1044,7740, 7721,6217,1175,1677 
1044,7740, 7721,6217,1175,1677 


1044,7740,7721,6217,1175,1677 


eT eT TT 


we Ne Se Se Se Me Se Se Se Ne a Me Me Se Ne 


Se a eT) 


we Se Se te Ne te Ne 
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IDLE LOOP 


;If GO then do the appropriate read or write routine, 


=00 
GO.W.X: 


7Function GO section 


else return to IDLE. 


COND/DEMAND, J/ IDLE 
COND/DEMAND, J/ IDLE 
COND/DEMAND, J/R. RD, ALUFN/ADD2Q, ALUDEST/QREG, CARRY/1 
COND/DEMAND, J/W.WRT, ALUFN/ADD2Q, ALUDEST/QREG, CARRY/1 


(GO=1) 


;MBC data read section 


=0 


7No DEMAND: 


See if we need to timeout the transfer (QREG is negative). 


; Create the Massbus Abort bit in TEMP just in case 


R.RD: 


;DEMAND: 


=0 


;Transfer has not exceeded timeout period. 


R.RDA: 


;Transfer has timed out. 


;Finish 
R.RDB: 


R.ENDX: 


COND/NEG, J/R.RDA, ALUA/BIT12, ALUB/TEMP, ALUFN/A, ALUDEST/ BDOWN 


service the appropriate register. 
COND/REG_ SEL, J/R.FPIELD 


Branch on EXC and EOP. 


COND/EXC.EOP, J/R.ENDX 


J/R. RDB, ALUA/TEMP, ALUB/ERROR. REG, ALUFN/BISAB, ALUDEST/BRAM 


timing out the read. Set EBL and end transfer. 
COND/END_EBL.DEM,J/EBL.LP, SET_EBL,XPORT_READ REQ,END MASS READ, 
ALUA/ TEMP, ALUB/ HEADER, ALUFN/Z, ALUDEST/BRAM 


;Nothing doing: return to Idle. 

COND/DEMAND, J/IDLE 

7; (EXC or EBL): set EBL and end the transfer. 

COND/END_EBL.DEM, J/EBL.LP, set_ebl, xport_read_req, end_mass read, 
ALUA/temp, ALUB/header, ALUFN/Z,ALUDEST/Bram 

COND/END_EBL.DEM, J/EBL.LP, set_ebl, xport_read_ req, end_mass read, 
ALUA/temp, ALUB/header, ALUFN/Z,ALUDEST/Bram 

COND/END_EBL.DEM, J/EBL.LP, set_ebl, xport_read_req, end_mass read, 
ALUA/temp, ALUB/header, ALUFN/Z,ALUDEST/Bram 


Set bit 11 in the Error Register to signal an abort. 
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REX05.MIC 19:13 27-JULY-1984 IDLE LOOP 
- 581 
3 582 7MBC data write section 
7; 6583 
7; 5984 =0 


7 585 *No DEMAND: See if we need to timeout the transfer (QREG is negative). 
7; 586 + Create the Massbus Abort bit in TEMP just in case 
0064, 0664,3346, 7721,6376,0717, 2437 7; 587 W.WRT: COND/NEG,J/W.WRTA, ALUA/BIT12,ALUB/TEMP,ALUFN/A, ALUDEST/BDOWN 


7 588 

7 589 7DEMAND: service the appropriate register. 
0065, 7005,0746,7721,6377,1177,0437 7 590 COND/REG SEL,J/R.FIELD 

7 991 = 

7; 592 

7 593 =0 

7 594 ;Transfer has not exceeded timeout period. Branch on EXC or EOP. 
0066, 0744,7346,7721,6377,1177,0437 7 595 W.WRTA: COND/EXC.EOP,J/W.ENDX 

; 596 

3; 597 ;Transfer has timed out. Set bit 11 in the Error Register to signal an abort. 
0067, 0704,0346, 7721, 6037, 0637,1437 7; 598 J/W.WRTB, ALUA/ TEMP, ALUB/ERROR. REG, ALUFN/ BI SAB, ALUDEST/ BRAM 

7 599 

600 = 


601 7Here to finish timing out the write. Set EBL and clear header register 


0070, 1004,2742,7721,6217,1177,1437 602 W.WRTB: COND/DPA,J/W.END,SET_ EBL,ALUA/TEMP, ALUB/ HEADER, ALUFN/Z,ALUDEST/BRAM 


7 603 
7 604 =00 
7 605 7No EXC or EOP: check for a DPA error during the Massbus transfer. 
; 606 ;Prepare the appropriate bit for setting DPA in the Error register 
7 607 W.ENDX: COND/DPA, J/W.DPA, 
0074, 0724,2746,7721,6375,0717, 3437 7 608 ALUA/bit03,ALUB/t emp, ALUFN/A, ALUDEST/Bup 
7; 609 ;EXC or EOP: set EBL and check DPA for the last time. 
7; 610 7Clear the Header register 
7; 611 COND/DPA, J/W.END, set_ebl, 
0075, 1004,2742,7721,6217,1177,1437 7; 612 ALUA/temp, ALUB/header, ALUFN/Z,ALUDEST/Bram 
7; 613 COND/DPA, J/W.END, set_ebl, 
0076, 1004,2742,7721,6217,1177,1437 7; 614 ALUA/temp, ALUB/header, ALUFN/Z,ALUDEST/Bram 
; 615 COND/DPA, J/W.END, set_ebl, 
0077, 1004,2742,7721,6217,1177,1437 7; 616 ALUA/temp, ALUB/header, ALUFN/Z,ALUDEST/Bram 
7; 617 = 
7 618 7You end up here (at the W.DPA branch field) if there is no EXC or EOP 
7 619 =0 
7 620 ;No DPA: go to Idle. 
0072, 0364,4746,7721,6377,1177,0437 7; 621 W.DPA: COND/DEMAND, J/IDLE 
7 622 7DPA is set: set the Comp Error bit in the Status Register. 
7 623 7Set the Data Bus Parity Error bit (bit 04) in the Error register. 
7 624 COND/DEMAND, J/IDLE, clear_status, comp_error L, 
0073, 0364,4746, 7721, 6037,0637,1435 7 625 ALUA/temp, ALUB/error. reg, ALUFN/bisAB, ALUDEST/Bram 
7 626 = 
7 627 7You end up here (at the W.END branch field) if there is an EXC or EOP 
7; 628 =0 
7; 629 7;No DPA: see if a trailer is required. 
0100, 1024,5346,7721,6377,1177,0437 7 630 W.END: COND/add_ trailer L, J/W.TRL 
7 631 *DPA: see if a trailer is required. 
7 632 ;Set the DPA bit in the Error register 
* 633 COND/add_trailer_L, J/W.TRL, clear status, comp error L, 
0101, 1024,5346, 7721, 6037, 0637,1435 7; 634 ALUA/temp, ALUB/error. reg, ALUFN/bisAB, ALUDEST/Bram 
7 635 = 
7 636 =0 
7 637 7;Traller: end the transfer with a trailer and wait for the end of EBL. 
7 638 W.TRL: COND/END_EBL.DEM, J/EBL.LP, ralu_read, xport_load, end_mass write trailer, 
0102, 1044,7744, 6721,6371,0707,0437 7; 639 ALUA/trailer, ALUB/temp, ALUFN/A, ALUDEST/nop 
; 640 7No trailer: end the transfer and wait for the end of EBL. 


0103, 1044,7744,7721,6377,1175,0577 7 641 COND/END_EBL.DEM, J/EBL.LP, xport_read_req, end_mass write 


7 642 = 


7 643 =00 

7 644 ;No END EBL or DEMAND: just loop. 
0104, 1044,7746,7721,6377,1177,0437 7; 645 EBL.LP: COND/END EBL.DEM, J/EBL.LP 

7; 646 ;DEMAND: service the appropriate register. 
0105, 7005,0746,7721,6377,1177,0437 7 647 COND/REG SEL,J/R.FIELD 

7 648 ;END EBL: clear GO and DPA Error, and return to IDLE. 

7; 649 COND/DEMAND, J/IDLE, dpa_err clear, clear status, go, 
0106, 0364,4646, 7721, 6014,1237,1436 7; 650 ALUA/bit00, ALUB/control.reg,ALUFN/bicAB, ALUDEST/Bram 

7 651 ;END EBL and DEMAND: clear go and service the appropriate register. 

7 652 COND/REG_ SEL, J/R.FIELD, dpa_err clear, clear_status, go, 
0107, 7005,0646, 7721, 6014,1237,1436 7 653 ALUA/bit00, ALUB/control.reg,ALUFN/bicAB, ALUDEST/Bram 

7 654 = 


7; 655 


ao‘ 


REXO5.MCR[, ] MICRO 20 (156) MEIS CONTROL MICROCODE - MACH II PAGE 16 
REXO5.MIC 19:13 27-JULY-1984 REGISTER READ DISPATCH TABLE 


3; 656 .TOC “Register read dispatch table" 
7 657 

658 =111000000 

659 R.FIELD: 


we Me Ne 


660 ;CONTROL REGISTER 
7 661 R..00: J/IDLE, ralu_read, cmax_load, set tra, 
0700, 0364,0356, 6721, 2360,0717,0437 3; 662 ALUA/control.reg, ALUB/t emp, ALUFN/A, ALUDEST/nop 
7 663 7STATUS REGISTER 
0701, 1104,0354,5721,2377,1175,0437 7 664 R..01: J/RO1, status read, cmax_load, set_tra, xport read req, pakt status read 
7 665 7ERROR REGISTER 
3 666 R..02: J/IDLE, ralu_read, cmax_load, set tra, 
0702, 0364,0356, 6721, 2361,0717,0437 7 667 ALUA/error. reg, ALUB/temp, ALUFN/A, ALUDEST/nop 
7 668 7;MAINTENANCE REGISTER 
0703, 0364,0356, 7321,2377,1177,0437 7; 669 R..03: J/IDLE, maint_read, cmax_load, set _tra 
3 670 *;ATTENTION SUMMARY REGISTER : the tra will be blocked by hardware, 
+ 671 rbut the set tra is still required to set the "Serviced" FF. 
0704, 0364,0356,7701,2377,1177,0437 3; 672 R..04: J/IDLE, asr read, cmax_load, set tra 
7 673 ;BYTE COUNT REGISTER 
0705, 0364,0356, 7761, 2377,1177,0437 3; 674 R..05: J/IDLE, biker read, cmax_load, set_tra 
7 675 7DRIVE TYPE REGISTER 
0706, 0364,0356, 3721, 2377,1177,0437 7 676 R..06: J/IDLE, swreg_read, drive_sel, cmax_load, set_tra 
7; 677 ;DATA CONTROLLER PC REGISTER 
0707, 0364,0356,7721,2377,1176,0437 7 678 R..07: J/IDLE, dpc_read, cmax_load, set tra 
+ 679 *;RECEIVER BUFFER ADDRESS REGISTER 
; 680 R..10: J/IDLE, ralu_read, cmax_load, set_tra, 
0710, 0364,0356, 6721, 2364,0717,0437 ; 681 ALUA/rbuf.adrs, ALUB/temp, ALUFN/A, ALUDEST/nop 
3; 682 ;RECEIVER BUFFER DATA REGISTER 
7 683 ;Read the rbuf data and then start working towards a buffer adrs load 
3; 684 sby loading the Buffer Address Load function in the Recon Request port. 
7 685 R..11:  J/R11, ralu_read, cmax_load, set_tra, bufr_adrs_ load, 
0711, 0714,0354, 6721, 2105,0077,5277 7; 686 ALUA/rbuf.data, ALUB/rbuf.adrs,ALUFN/addZB, ALUDEST/Brama, CARRY/1 
3; 687 ;RECEIVER BUFFER STATUS REGISTER 
7; 688 R..12:  J/IDLE, ralu_read, cmax_load, set _tra, 
0712, 0364,0356, 6721, 2366,0717,0437 7 689 ALUA/rbuf.status, ALUB/t emp, ALUFN/A, ALUDEST/nop 
7 690 *DATA CONVERSION MODE REGISTER 
0713, 0364,0356, 7621, 2377,1177,0437 7, 691 R,.13:  J/IDLE, bmode_read, cmax_load, set_tra 
7 692 7SERIAL NUMBER REGISTER 
0714, 0364,0356, 3725, 2377,1177,0437 7 693 R..14: J/IDLE, swreg read, serial_sel, cmax_load, set _tra 
7 694 7TRAILER REGISTER 
7 695 R..15: J/IDLE, ralu_read, cmax_load, set_tra, 
0715, 0364,0356, 6721, 2371,0717,0437 7 696 ALUA/trailer, ALUB/temp, ALUFN/A, ALUDEST/nop 
3; 697 DIAGNOSTIC REGISTER 
7 698 R,.16: J/IDLE, ralu_read, cmax_load, set_tra, 
0716, 0364,0356, 6721, 2377, 0657, 0437 7 699 ALUA/temp, ALUB/temp, ALUFN/Q,ALUDEST/nop 
7 © 700 7RECEIVER BUFFER ABSOLUTE ADDRESS REGISTER 
+ 701 R..17: J/IDLE, ralu_read, cmax_load, set _tra, 
0717, 0364,0356, 6721, 2363,0717,0437 7 702 ALUA/abs.adrs,ALUB/temp, ALUFN/A, ALUDEST/nop 
+ 703 ;ETHERNET ADDRESS REGISTER 
7 704 R..20: J/IDLE, ralu_read, cmax_load, set_tra, 
0720, 0364,0356, 6721, 2362,0717,0437 7 705 ALUA/ether.adrs,ALUB/temp, ALUFN/A, ALUDEST/nop 
7; 706 ;HEADER COUNT REGISTER 
+ 707 R..21:  J/IDLE, ralu_read, cmax_load, set tra, 
0721, 0364,0356, 6721,2370,0717,0437 7 708 ALUA/header, ALUB/temp, ALUFN/A, ALUDEST/nop 
7 709 s;MICROCODE VERSION REGISTER 
* 710 R..22: J/IDLE, ralu_read, cmax_load, set tra, 
0722, 0364,0356, 6721, 2367,0717,0437 7 711 ALUA/version, ALUB/temp, ALUFN/A, ALUDEST/nop 
7; 712 7;SLAVE ID REGISTER 
? 713 R..23: J/IDLE, ralu_read, cmax_load, set tra, 
0723, 0364,0356, 6721,2372,0717,0437 7; 714 ALUA/slave.id,ALUB/temp, ALUFN/A, ALUDEST/nop 
7; 715 7; ILLEGAL REGISTERS 


; 716 ;Illegal registers are read as zero 


0724, 
0725, 
0726, 
0727, 
0730, 
0731, 
0732, 
0733, 
0734, 
0735, 
0736, 


0737, 


1134,0356, 6721, 2377,1177,0437 
1134,0356, 6721, 2377,1177,0437 
1134,0356, 6721,2377,1177,0437 
1134,0356, 6721, 2377,1177,0437 
1134,0356, 6721, 2377,1177,0437 
1134,0356, 6721,2377,1177,0437 
1134,0356, 6721, 2377,1177,0437 
1134,0356, 6721, 2377,1177,0437 
1134,0356, 6721,2377,1177,0437 
1134,0356, 6721, 2377,1177,0437 
1134,0356, 6721, 2377,1177,0437 


1134,0356, 6721,2377,1177,0437 


we Me Ne 


717 
718 
719 
720 
721 
7122 
723 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
735 
736 
737 
738 
739 
740 
741 
742 


J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set _tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/2,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set tra, 
ALUA/temp, ALUB/temp, ALUFN/2,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set_tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 
J/R24, ralu_read, cmax_load, set tra, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/nop 


REXOS5. 
REXO5. 


0740, 
0741, 
0742, 
0743, 
0744, 
0745, 
0746, 
0747, 
0750, 
0751, 
0752, 
0753, 
0754, 
0755, 
0756, 
0757, 
0760, 
0761, 
0762, 
0763, 
0764, 
0765, 
0766, 
0767, 
0770, 
0771, 
0772, 
0773, 
0774, 
0775, 


0776, 
0777, 


MCR[, ] 


MIC 19:13 27-JULY-1984 


1170,0347,7721,6377,1177,0437 
1320,0347,7721, 6377,1177,0437 
1330,0347, 7721, 6377,1177,0437 
1354,0347, 7721, 6377,1177,0437 
1464,0347, 7721, 6377,1177,0437 
1470,0347,7721,6377,1177,0437 
1320,0347,7721,6377,1177,0437 
1320,0347, 7721, 6377,1177,0437 
1500,0345, 7721,6377,1177,0677 
1540,0345, 7721, 6377,1177,0737 
1320,0347, 7721, 6377,1177,0437 
1640,0347, 7721, 6377,1177,0437 
1320,0347,7721,6377,1177,0437 
1650,0347, 7721, 6377,1177,0437 
1700,0347, 7721, 6377,1177,0437 
1710,0347,7721,6377,1177,0437 
1750,0347, 7721, 6377,1177,0437 
2050,0347, 7721, 6377,1177,0437 
1320,0347, 7721, 6377,1177,0437 
1320,0347,7721,6377,1177,0437 
2100,0347, 7721, 6374,0717,3437 
2100,0347, 7721, 6374,0717,3437 
2100,0347, 7721, 6374,0717,3437 
2100,0347, 7721, 6374,0717,3437 
2100,0347, 7721, 6374,0717, 3437 
2100,0347, 7721, 6374,0717,3437 
2100,0347, 7721, 6374,0717,3437 
2100,0347, 7721,6374,0717,3437 
2100,0347, 7721, 6374,0717,3437 
2100,0347, 7721, 6374, 0717,3437 


2100,0347, 7721, 6374,0717,3437 
2100,0347, 7721, 6374,0717,3437 


we 
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743 
744 
745 
746 
747 
748 
749 
750 
751 
7352 
753 
754 
795 
756 
757 
758 
7159 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
780 
781 
782 
783 
784 
785 
786 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
798 
799 
800 


MEIS CONTROL MICROCODE - MACH II 
REGISTER WRITE DISPATCH TABLE 


-TOC "Register write dispatch table” 


=111100000 
7;CONTROL REGISTER 
rmr_test_go, J/R40, cpa_clk 
7;STATUS REGISTER 


rmr_test_go, 


J/R4l, 


;ERROR REGISTER 


rmr_test_go, 


J/R42, 


cpa_clk 


cpa_ clk 


*MAINTENANCE REGISTER 


J/R43, 
; ATTENTION 
J/R44, 


rmr_test_go, 


7;DRIVE TYPE REGISTER 


rmr_test_go, 


;DATA CONTROLLER PC REGISTER 


rmr_test go, 


cpa_ clk 
SUMMARY REGISTER 
cpa_clk 
7;BYTE COUNT REGISTER 


J/R45, 
J/R41, 


J/R41, 


cpa_clk 
cpa_clk 


cpa_clk 
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;RECEIVER BUFFER ADDRESS REGISTER 
rmr_test_go, J/RS5O, bufr_adrs_load, cpa_clk 
*;RECEIVER BUFFER DATA REGISTER 

rmr_test_go, J/R51, bufr_data_load, cpa_clk 
7;RECEIVER BUFFER STATUS REGISTER 


rmr_test_go, J/R41, cpa_clk 
7DATA CONVERSION MODE REGISTER 
rmr_test_go, J/R53, cpa_clk 
7;SERIAL NUMBER REGISTER 
rmr_test_go, J/R41, cpa_clk 
7TRAILER REGISTER 

rmr_test_go, J/R55, cpa_clk 
;DIAGNOSTIC REGISTER 
rmr_test_go, J/R56, cpa_clk 


;RECEIVER BUFFER ABSOLUTE ADDRESS REGISTER 


rmr_test_go, 


J/RS7, 


cpa_clk 


7; ETHERNET ADDRESS REGISTER 
rmr_test_go, J/R60, cpa_clk 
7HEADER COUNT REGISTER 
rmr_test_go, J/R61, cpa_clk 
7;MICROCODE VERSION NUMBER 


rmr_test_go, 


J/R41, 


7;SLAVE ID REGISTER 


rmr_test_go, 


J/R41, 


7; ILLEGAL REGISTERS 


rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 
rmr_test_go, 


J/R64, 
J/R64, 
J/R64, 
J/R64, 
J/R64, 
J/R64, 
J/R64, 
J/R64, 
J/R64, 
J/R64, 
J/R64, 
J/R64, 


cpa_clk 
cpa_clk 


cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 
cpa_clk, 


ALUA/bit00, ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00, ALUB/t emp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00,ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00, ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00, ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00,ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00, ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00, ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00,ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00,ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00,ALUB/temp, ALUFN/A, ALUDEST/Bup 
ALUA/bit00, ALUB/t emp, ALUFN/A, ALUDEST/Bup 


~ 


U 


U 


U 


U 


REXO5.MCR[, ] 
REX05.MIC 


0110, 


0111, 


Oo71, 


0112, 


0114, 


0115, 


0113, 


0116, 


0117, 


0120, 


012i, 


0122, 


0124, 


0125, 


0123, 


19:13 27-JULY-1984 


1104, 4346, 7721, 6377,1177,0437 


0364,4746, 7721,6157,0773,1437 


1124,0346, 6721, 6364,0707,0437 


1144,0346,7721,6377,1175,0437 


1144,4346, 7721, 6377,1177,0437 


0364,4746, 7721, 6137,0773,1437 


1164,0346, 7721, 6374,0717,3437 


0364,4746,7721,6037,0637,1435 


1204, 2356, 7521, 6017,0777,1437 


1224,0346, 6721, 6361,0717,0437 


1314,0346, 7721, 6035,0637,1435 


1244,3746, 7721, 6377,1177,0437 


1314,0346, 7721,6377,1177,0437 


1234,0346, 7721, 6014, 1037,0437 


1264,3746, 7721, 6360,0717, 2437 
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801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
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REGISTER UCODE 


-TOC “Register ucode" 


Ril: 


R24: 


R40: 


=0 


R40PEX: 


R40ERT: 
=0 


R40ERX: 


R40GOT: 


=0 


7STATUS REGISTER 


;Wait for the packet status to come back 

COND/XPORT, J/RO1 

7Put the status in the Receiver buffer Status register 
COND/DEMAND, J/IDLE, xport_read, 

ALUA/temp, ALUB/rbuf.status, ALUFN/D, ALUDEST/Bram 


;RECEIVER BUFFER DATA REGISTER 

7Give a new rbuf adrs to the data board 

ralu_read, xport_ load, 
ALUA/rbuf.adrs, ALUB/temp, ALUFN/A, ALUDEST/nop 

rAfter we give the data board the new adrs, we can request a reply 
xport_read_ req 


;Loop until we get an Xport reply 

COND/XPORT, J/R11..2 

7Put the Xport data in the Rbuf Data Register and return to Idle 
COND/DEMAND, J/IDLE, xport read, 

ALUA/temp, ALUB/rbuf.data, ALUFN/D, ALUDEST/Bram 


;ILLEGAL REGISTERS 

7Create the illegal register bit (bit01l) for the Error Register 
ALUA/bit00,ALUB/temp, ALUFN/A, ALUDEST/Bup 

;Then set the Error Register bit and return to Idle 
COND/DEMAND, J/IDLE, clear status, comp_error_ L, 

ALUA/temp, ALUB/error. reg, ALUFN/bisAB, ALUDEST/Bram 


?;CONTROL REGISTER 

;Test for a parity error 

*Store the massbus data in the Control Register 
COND/cpa, J/R40PEX, cmax_read, set_tra, 
ALUA/temp, ALUB/control.reg, ALUFN/D, ALUDEST/Bram 


7No parity error: test the error register 

7; (here we just get set up for checking it) 

;(valu read is diagnostic) 

J/R40ERT, ralu_read, 

ALUA/error. reg, ALUB/temp, ALUFN/A, ALUDEST/nop 

#Parity error: set the Comp Error bit in the Status Register 
7Set the Control Bus Parity Error bit 
7Go to No Go to exit without performing a function 
J/RAONGO, clear_status, comp_error L, 

ALUA/bit03, ALUB/error.reg, ALUFN/bisAB, ALUDEST/Bram 


sHere we see if the error register is zero 
COND/zero, J/R40ERX 


;Error.reg <> zero: go to R40NGO 
J/R40NGO 
sError.reg = 
J/R4A0GOT, 
ALUA/bit00, ALUB/control.reg, ALUFN/andAB, ALUDEST/nop 


zero: prepare to test GO in the control register 


7Test to see if the GO bit is set 

7Temp= control.reg/2 (Prepare To Vector!) 
COND/zero, 
ALUA/control.reg, ALUB/temp, ALUPN/A, ALUDEST/Bdown 


(bit 03) in the Error register 


U0 


U 


U 


U 


U 


U 


U 


U 


U 


U 


U 


U 


U 


0126, 


0127, 


0130, 


0131, 


0132, 


0133, 


0134, 


0136, 


0137, 


0135, 
0140, 


0141, 


0142, 


0143, 


0144, 


0145, 


0146, 


1304,0346, 6721, 6377,0717,0437 


1314,0346, 7721,6377,1177,0437 


6406,1346, 6721, 6377, 0717,0437 


0364,4746, 7721, 6014,1237,1437 


2124,2356,7721,6377,1177,0437 


1344,0356, 7521, 6037,0777,1437 


1364,3746, 7721, 6377,1177,0437 


2124, 2346, 7721, 6377,1177,0435 


2124, 2346, 7721, 6377,1177,0437 


1404,0356, 7521, 6377,0777,1437 
1414,0346, 7721, 6374,1037,0437 


1424,3746, 7721, 6377,1177,0437 


1444,2346, 7721, 6377,1177,0437 


1444, 2346, 6720, 6377,1177,1437 


0364,4746, 6720, 6377,0717,0437 


0364,4746, 7721, 6035, 0637,1435 


2124,2316, 7521,6377,1177,0437 


Me Ne Se Me Ne te 
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we 
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862 
863 
864 
865 
866 
867 
868 
869 
870 
871 
872 
873 
874 
875 
876 
877 
878 
879 
880 
881 
882 
883 
884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 


R40GOX: 


R40FUN: 


R40NGO: 


R41: 


R42: 


R43: 


R43CPA: 


R44: 


7Go <> zero: jump to R40FUN for a function dispatch 

7Put the function vector on the RBUS so that it has a cycle to settle 
J/R40FUN, ralu_read, 

ALUA/temp, ALUB/temp, ALUFN/A, ALUDEST/nop 

7GO = zero: go to R40NGO 

J/R40NGO 


;Jump to the control register function code 

COND/FUNC_SEL, J/CF.FIELD, ralu_read, 

ALUA/temp, ALUB/temp, ALUFN/A, ALUDEST/nop 

7Something went wrong, so just clear GO in the control register 
COND/DEMAND, J/IDLE, 

ALUA/bit00, ALUB/control.reg,ALUFN/bicAB, ALUDEST/Bram 


7STATUS REGISTER 

;DRIVE TYPE REGISTER (ROG) 

7;DATA CONTROLLER PC REGISTER (RO7) 
7Check the write parity 

COND/cpa, J/PEXIT, set _tra 


7;ERROR REGISTER 

7;Put the data in the error register 

cmax read, set _tra, 

ALUA/temp, ALUB/error. reg, ALUFN/D, ALUDEST/Bram 
;See if the error register is now zero 
COND/zero 


;Error.reg <> zero: set Composite Error 

;Check the write parity 

COND/cpa, J/PEXIT, clear_status, comp_error_L 
;Error.reg = zero: just check the write parity 
COND/cpa, J/PEXIT 


7;MAINTENANCE REGISTER 

7;Put the data into temp 

cmax_read, set_tra, 

ALUA/temp, ALUB/temp, ALUFN/D, ALUDEST/Bram 

7Test the Maintenance Mode bit (bit 00) in the Maintenance register 
ALUA/bit00,ALUB/temp, ALUFN/andAB, ALUDEST/nop 

7See if the Maintenance Mode bit is set 

COND/zero 


;Maintenance Mode <> zero: check the write parity 
COND/CPA, J/R43CPA 

7;Maintenance Mode = 
; (also clear temp, 

;Check the write parity 

COND/CPA, J/R43CPA, ralu_read, maint_load, 
ALUA/temp, ALUB/temp, ALUFN/Z,ALUDEST/Bram 


zero: clear the Maintenance register 


;No parity error: just transfer temp into the Maintenance register 
COND/DEMAND, J/IDLE, ralu_read, maint_load, 
ALUA/temp, ALUB/temp, ALUFN/A, ALUDEST/nop 

;Parity error: set the Comp Error bit in the Status Register 

7Set the Control Bus Parity Error bit (bit 03) in the Error register 
; (and the register is unaffected unless bit00 was 0) 

COND/DEMAND, J/IDLE, clear_status, comp_error L, 

ALUA/bit03, ALUB/error.reg, ALUFN/bisAB, ALUDEST/Bram 


7ATTENTION SUMMARY REGISTER 
7Check the write parity 
COND/cpa, J/PEXIT, cmax_read, ata_clear_enb, set tra 


so the load at R43CPA also zeros the Maint register) 


U 0147, 


2124, 2356, 7521,6777,0777,0437 


926 
927 
928 
929 
930 


R45: 


7;BYTE COUNT REGISTER 

7Check the write parity 

COND/cpa, J/PEXIT, cmax_read, biker load, set tra, 
ALUA/temp, ALUB/temp, ALUFN/D, ALUDEST/nop 


0 


19) 


0 


U0 


0 


REXO5. 
REXOS, 


0150, 


0151, 


0152, 


0153, 


0154, 


0155, 


0156, 


0157, 


0160, 
0161, 


0162, 


0163, 


0164, 


0166, 


0167, 


0165, 


MCR[, ] 


MIC 19:13 27-JULY-1984 


1514,0356, 7521, 6117,0767,1437 


1524, 2346, 7721,6377,1175,0437 


1144,0346, 7721,6377,1177,0437 


1144,0346, 7721, 6035, 0637,1435 


1554,0356, 7521,6377,0777,1437 


1564, 2346, 7721, 6377,1177,0437 


1604,0346, 7721, 6377,1177,0437 


1604,0346, 7721, 6035, 0637,1435 


1614,0346, 7321, 6374,1137,0437 
1624,3746, 7721,6377,1177,0437 


1124,0346, 6721, 6377,0707,0437 


0364,4746,7721,6377,1177,0437 


1664, 2356, 7521,4377,1177,0437 


0304,0346,7721,6377,1177,0437 


0304,0346, 7721, 6035, 0637,1435 


2124, 2356, 7521,6237,0777,1437 
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931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
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REGISTER UCODE 


7; Register jump table extension 


R50: 


R51: 


R53: 


R55: 


7RECEIVER BUFFER ADDRESS REGISTER 

cmax_read, xport load, set _tra, 

ALUA/temp, ALUB/rbuf .adrs, ALUFN/D, ALUDEST/Bram 
7Check the write parity 

COND/cpa, xport read req 


;Get the data at the new address 

;(jJust like a Receiver Buffer Data register read) 

J/R11..2 

;Parity error: set the Comp Error bit in the Status Register 

7;Set the Control Bus Parity Error bit (bit 03) in the Error register 
7Get the data at the new address 

7 (just like a Receiver Buffer Data register read) 

J/R11..2, clear _status, comp_error L, 

ALUA/bit03, ALUB/error.reg,ALUFN/bisAB, ALUDEST/Bram 


;RECEIVER BUFFER DATA REGISTER 

7Put the data in temp 

cmax_read, set tra, 

ALUA/temp, ALUB/temp, ALUFN/D, ALUDEST/Bram 
7Check the write parity 

COND/cpa 

;No parity error: continue 

J/R51..3 

;Parity error: set the Comp Error bit in the Status Register 

7;Set the Control Bus Parity Error bit (bit 03) in the Error register 
clear status, comp _error L, 
ALUA/bit03,ALUB/error.reg,ALUFN/bisAB, ALUDEST/Bram 


7;See if we are in Maintenance Mode 


: maint_read, 


ALUA/bit00, ALUB/temp, ALUFN/andDA, ALUDEST/nop 
COND/zero 


;Maintenance Mode <> zero: write the data to the buffer 

yand get the data at the new address 

7 (just like a Receiver Buffer Data register read) 

J/R11..1, ralu_read, xport_load, 
ALUA/temp, ALUB/temp, ALUFN/A, ALUDEST/nop 

;Maintenance Mode = zero: do not write the data to the buffer 
COND/DEMAND, J/IDLE 


7DATA CONVERSION MODE REGISTER 
;Check the write parity 
COND/cpa, cmax_read, bmode_load, set_tra 


7;No parity error: get the selected board’s Slave ID and Packet Status. 
J/DREGS 

;Parity error: set the Comp Error bit in the Status Register 

7;Set the Control Bus Parity Error bit (bit 03) in the Error register 
7Get the selected board’s Slave ID and Packet Status. 

J/DREGS, clear status, comp_error L, 

ALUA/b1t03, ALUB/error.reg,ALUFN/bisAB, ALUDEST/Bram 


7; TRAILER REGISTER 

7;Check the write parity and load the Trailer register 
COND/cpa, J/PEXIT, cmax_read, set_tra, 

ALUA/temp, ALUB/trailer, ALUFN/D, ALUDEST/Bram 


0170, 


0171, 


0172, 


0173, 


0174, 


0176, 


0177, 


2124,2356, 7521,6377,0777,0037 


1724, 2356, 7521,6377,1177,0437 


1744,0346, 7721,6377,1177,0437 


1744,0346, 7721, 6035, 0637,1435 


1764,0344,7721,6377,1175,0637 


1764,4346,7721,6377,1177,0437 


0364,4746, 7721, 6077, 0773,1437 


= 


we Me te 


R56: 


R57: 


7DIAGNOSTIC REGISTER 

7Check the write parity and load the Diagnostic register 
COND/cpa, J/PEXIT, cmax_read, set tra, 

ALUA/temp, ALUB/temp, ALUFN/D, ALUDEST/Qreg 


;RECEIVER BUFFER ABSOLUTE ADDRESS REGISTER 

7Note that writing this register causes it to become valid for 
;the subsequent read 

7Check the write parity 

COND/cpa, cmax_read, set_tra 


7No parity error: continue 

J/R57..2 

7Parity error: set the Comp Error bit in the Status Register 

7Set the Control Bus Parity Error bit (bit 03) in the Error register 
clear status, comp_error L, 
ALUA/bit03,ALUB/error.reg,ALUFN/bisAB,ALUDEST/Bram 


;Make a request to the Network Interface board for the buffer pointer 
xport_read_req, bufr_ptr_ read 


;Loop until we get an Xport reply 

COND/XPORT, J/R57..3 

7;Put the data in the Receiver Absolute Address register 
COND/DEMAND, J/IDLE, xport_read, 

ALUA/temp, ALUB/abs.adrs,ALUFN/D,ALUDEST/Bram 


0 


0 
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U 


U 


REXO5.MCR[, ] 


REX05.MIC 19:13 27-JULY-1984 


0175, 


0200, 


0202, 


0203, 


0201, 


0204, 


0206, 


0207, 


0205, 


0210, 


2004,0356, 7521,6057,0777,1437 


2024,3346,7721,6377,1177,0437 


2014,0344,7721,6377,1177,0477 


2014,0344, 7721,6377,1177,0777 


2044,0346,6721,6362,0707,0437 


2064,0346, 7721,6377,1175,0437 


2064, 4346, 7721, 6377,1177,0437 


2124, 2346, 7721, 6057,0773,1437 


2124,2356, 7521,7217,0777,1437 


2124,2356,7721, 6037, 0637,1435 
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1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 
1063 
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; Register jump table extension 


R60: 


R60. .5: 


R61: 


R64: 


7;ETHERNET ADDRESS REGISTER 

7;Put the data into the ethernet address register 

cmax_read, set_tra, 
ALUA/temp,ALUB/ether.adrs,ALUFN/D,ALUDEST/Bram 

7See if this is an actual write to the ethernet address ram 
7 (or is the register just being loaded to check the ram) 
COND/neg, J/R60EW 


;Neg = false: the write enable is down so only do an address read 
J/R60..3, ether adrs read 

7;Neg = true: the write enable is up so write the address and then read it 
J/R60..3, ether adrs load 


?The previous instruction only set set up the function, now load the Xport 
swith the ethernet address register initiate it. 

ralu_read, xport load, 

ALUA/ether.adrs,ALUB/temp, ALUFN/A, ALUDEST/nop 

;Clear the Xport Full flag to initiate the request 

xport _read_req 


;Wait here until the D-board responds 

COND/XPORT,J/R60..5 

7Finally it responds: put the data in the ethernet address register 
;Check the write parity 

COND/cpa, J/PEXIT, xport read, 
ALUA/temp,ALUB/ether.adrs,ALUFN/D,ALUDEST/Bram 


;HEADER COUNT REGISTER 

*Put the data in the Header Count register 

7Check the write parity 

COND/cpa, J/PEXIT, cmax_read, bheadr_load, set_tra, 
ALUA/temp,ALUB/header, ALUFN/D,ALUDEST/Bram 


7; ILLEGAL REGISTERS 

;Set Composite Error in the Status register 

7Set the Illegal Register bit (bit 01) in the Error register 
COND/cpa, J/PEXIT, set_tra, clear status, comp_error L, 
ALUA/temp, ALUB/error.reg, ALUFN/bisAB, ALUDEST/Bram 


, 


r 


U 


U 


U 


U 


U 


U 


U 


REXO5.MCR[, ] 
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0374, 
0375, 
0376, 


0377, 


0211, 


0212, 


0213, 


2114,0346, 7721,6375,0717, 2437 
2114,0346, 7721,6375,0717, 2437 
2114,0346, 7721,6375,0717, 2437 


2114,0346, 7721, 6375,0717, 2437 


2124,2356, 7721, 6037, 0637,1435 


0364,0346, 7721, 6377,1177,0437 


0364,0346, 7721, 6035, 0637,1435 


ws 


ete 8 
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“ 


we 
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1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 
1101 
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; RMR CODE - NOTE STRATEGIC LOCATION! CHECK ADDRESSES AFTER ASSEMBLY! 


7Due to the hardware, the branch to RMR defines only Rseqr Adrs bits 
702 through 08. Bits 00 and 01 are undefined. Therefore, there are 4 
;locations that are RMR. In addition, the msb of RMR must be the same 
yas all of the J/ fields in the register write dispatch field, so RMR 
;should be placed near the code they point to. 


7011 111 100 = 374 = the alu_ab field for the rmr_ load (see RMRLD:) 


=011111100 


RMRPET:?: 


PEXIT: 


;Jump to RMR parity error test 

7Create bit 02 in temp 

J/RMRPET, 
ALUA/bit03,ALUB/temp, ALUFN/A, ALUDEST/Bdown 
J/RMRPET, 
ALUA/bit03,ALUB/temp, ALUFN/A, ALUDEST/Bdown 
J/RMRPET, 
ALUA/bit03,ALUB/temp, ALUFN/A, ALUDEST/Bdown 
J/RMRPET, 
ALUA/bit03,ALUB/temp, ALUFN/A, ALUDEST/Bdown 


;Test for parity error.- Set the Composite Error bit in the Status register 
7Set the Register Modification Refused bit (bit 02) in the Error register 
COND/cpa, J/PEXIT, set_tra, clear_status, comp_error L, 

ALUA/temp, ALUB/error. reg, ALUFN/b1isAB, ALUDEST/Bram 


;This is the parity error branch field, common to many registers. 


;No parity error: return 

J/ IDLE 

;Parity error: set the Comp Error bit in the Status Register 

7Set the Control Bus Parity Error bit (bit 03) in the Error register 
J/IDLE, clear_status, comp_error L, 
ALUA/bit03,ALUB/error.reg,ALUFN/bisAB, ALUDEST/Bram 


U0 


U 


REXOS.MCR[, ] 
REXO5.MIC 


0640, 
0641, 
0642, 
0643, 
0644, 


0645, 
0646, 
0647, 


0650, 
0651, 
0652, 
0653, 
0654, 
0655, 
0656, 
0657, 
0660, 
0661, 
0662, 
0663, 
0664, 
0665, 
0666, 
0667, 


0670, 
0671, 
0672, 
0673, 


0674, 
0675, 
0676, 
0677, 


19:13 27-JULY-1984 


0364,4746,7721,6014,1237,1436 
2144,5746, 7721, 6014,1237,1436 
2164,5746, 7721, 6014,1237,1436 
0364,4744,7721,6014,1227,1576 
2204,0344,7721,6014,1227,1636 


0364,4744,7721,6014,1227,1536 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014, 1237,1436 


2204,0344,7721,6014,1227,1636 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346,7721,6014,1237,1436 
2254,0346, 7721, 6014, 1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014, 1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346,7721,6014,1237,1436 
2254,0346, 7721, 6014, 1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014,1237,1436 


2234,0346, 7731,6377,1177,0017 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721, 6014,1237,1436 


2244,0346, 7721,6377,1177,0017 
2254,0346, 7721, 6014,1237,1436 
2254,0346, 7721,6014,1237,1436 
2254,0346, 7721,6014,1237,1436 


~~ 


Ne Me Ne Ne Me 


eT eT eT 


we Me Ne Ne 


Sl ET a ad ed Bd Bd eT eT eT ed a! TD 


e 


we 
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1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
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PAGE 22 
-TOC "CONTROL FUNCTION DISPATCH TABLE" 

;Define a couple of useful macros. CLEAR_GO drops the GO status line and 

; clears the GO bit in the command register. ILLEGAL FUNCTION invokes 

; CLEAR_GO and jumps to the illegal function handler. 

CLEAR_GO "CLEAR STATUS, GO, ALUA/BITO0,ALUB/CONTROL. REG, ALUFN/BICAB, ALUDEST/ BRAM" 
ILLEGAL FUNCTION "J/ILF,CLEAR_GO" 


=110100000 


CF.FIELD: 
7;No operation 


CF..00: COND/DEMAND, J/IDLE,CLEAR_ GO 
7Enable Packet Reception. Clear Go and branch on selected board. 
CF..01: COND/SEL BOARD 1,J/CF01,CLEAR_GO 
;Disable Packet Reception. Clear Go and branch on selected board. 
CF..02: COND/SEL BOARD 1,J/CF02,CLEAR_GO 
7Flush Packet 
CF,..03: COND/DEMAND, J/IDLE,CLEAR_GO,FLUSH_RX_PAKT, XPORT_LOAD 
;MEIS Clear 
CF..04: J/CF04,CLEAR_GO, XPORT_LOAD,DRIVE_CLEAR 
;Flush Transmit Buffer 
CF..05: COND/DEMAND, J/IDLE,CLEAR_GO,FLUSH_TX_BUFR, XPORT_LOAD 
CF..06: ILLEGAL FUNCTION 
CF,.07: ILLEGAL FUNCTION 
*MEIS Preset 
CF..10: J/CF04,CLEAR GO, XPORT_LOAD,DRIVE_CLEAR 
CF..11: ILLEGAL FUNCTION 
CF,..12: ILLEGAL FUNCTION 
CF..13: ILLEGAL FUNCTION 
CF..14: ILLEGAL FUNCTION 
CF..15: ILLEGAL FUNCTION 
CF..16: ILLEGAL FUNCTION 
CF..17: ILLEGAL FUNCTION 
CF..20:; ILLEGAL FUNCTION 
CF..21: ILLEGAL FUNCTION 
CP,.22: ILLEGAL FUNCTION 
CF..23: ILLEGAL FUNCTION 
CF..24: ILLEGAL FUNCTION 
CF..25: ILLEGAL FUNCTION 
CF..26: ILLEGAL FUNCTION 
CF..27: ILLEGAL FUNCTION 
7Transmit Packet. Put zero in the Qreg to start the transfer timer 
CF..30: J/CF30,SET STATUS,MBC_ WRITE MODE,ALUFN/Z,ALUDEST/QREG 
CP..31: ILLEGAL FUNCTION 
CF,.32: ILLEGAL FUNCTION 
CF..33: ILLEGAL FUNCTION 
7Receive Packet. Put zero in the Qreg to start the transfer timer. 
CF..34: J/CF34,CLEAR_STATUS,MBC_ WRITE MODE,ALUFN/2Z,ALUDEST/QREG 
CF,.35: ILLEGAL FUNCTION 
CF..36: ILLEGAL FUNCTION 
CF..37: ILLEGAL FUNCTION 


REXO5.MCR[,] 


REXO05.MIC 19:13 27-JULY-1984 


0214, 


0215, 


0216, 


0217, 


0220, 


0221, 


0222, 


0364,4746, 7731, 6377,1177,0433 


0364,4746, 7731,6377,1177,0427 


0364,4746, 7721, 6377,1177,0433 


0364,4746, 7721,6377,1177,0427 


2214,0246,7721,6037,1177,1437 


2224,0346, 6720, 6377,1177,0037 


0364,4706, 6731, 6377,1637,0435 
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1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1168 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
L277 
1178 
1179 
1180 
1181 
1182 
1183 
1184 
1185 
1186 
1187 
1188 
1189 
1190 
1191 
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-TOC "CONTROL FUNCTION MICROCODE" 


yEnable Packet Reception 


=0 
;Board 0 selected: enable reception for Network Interface board 0 
CFO1: COND/DEMAND, J/IDLE, set status, rx_pakt_enb_ 0 


;Board 1 selected: enable reception for Network Interface board 1 
COND/DEMAND, J/IDLE, set status, rx_pakt_enb 1 


;Disable Packet Reception 


=0 
;Board 0 selected: disable reception for Network Interface board 0 
CFO2: COND/DEMAND, J/IDLE, clear status, rx_pakt_enb 0 


;Board 1 selected: disable reception for Network Interface board 1 
COND/DEMAND, J/IDLE, clear_status, rx_pakt_enb 1 


;MEIS Clear 


;Clear the error register 
CFO4: dpa_err_ clear,ALUA/temp, ALUB/error.reg,ALUFN/Z,ALUDEST/Bram 


;Clear the Maintenance register, clear the Diagnostic register 
ralu_read, maint_load,ALUA/temp, ALUB/temp, ALUFN/Z, ALUDEST/Qreg 


;Clear the ATA register and Composite Error 
COND/DEMAND, J/IDLE, ralu_read, ata_clear_enb, set _status,comp_error_L, 
ALUA/temp, ALUB/temp, ALUFN/exnAB, ALUDEST/nop 


REXO5.MCR[, } MICRO 20 (156) 


REXOS.MIC 19:13 27-JULY-1984 


0223, 0364,4646, 7731,6377,1177,0436 


0224, 0364,4744, 7731, 6377,1175,0536 


0225, 0364,4746, 7721, 6034, 0637,1435 


NUMBER OF MICRO WORDS USED: 
D WORDS= 0 
U WORDS= 250 


END 
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1192 
1193 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1203 
1204 
1205 
1206 
1207 
1208 
1209 
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;Transmit Packet 


7Set GO and return to Idle 
CF30: COND/DEMAND, J/IDLE,DPA_ERR_ CLEAR,SET STATUS, GO 


;Receive Packet 


7Set GO and go to Idle 
CF34: COND/DEMAND, J/IDLE, SET_STATUS,GO,XPORT READ REQ, START MASS READ 


7Illegal Function 


7;Set the Comp Error bit in the Status Register, set the Illegal Function bit 

; (bit 00) in the Error register. 

ILF: COND/DEMAND, J/IDLE,CLEAR_STATUS, COMP ERROR L,ALUA/BITOO, ALUB/ERROR.REG, 
ALUFN/BISAB, ALUDEST/BRAM 


e 


, 


(U) 


(U) ALUB 


REXO5.MCR[, ] 
CROSS REFERENCE LISTING 


ALUA 


ABS.ADRS 
BITOO 


BITO3 


BIT12 
CONTROL. REG 
ERROR. REG 
ETHER.ADRS 
HEADER 

OLD. STATUS .REG 
RBUF ..ADRS 
RBUF ..DATA 
RBUF ..STATUS 
SLAVE. ID 
TEMP 


TRAILER 
VERSION 


ABS.ADRS 
BITOO 

BITO3 

BIT12 
CONTROL. REG 


ERROR. REG 


ETHER. ADRS 
HEADER 

OLD. STATUS.REG 
RBUF .ADRS 

RBUF .DATA 
RBUF. STATUS 
SLAVE.ID 

TEMP 


TRAILER 
VERSION 


(U) ALUDEST 
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Re 
No 
oO 

a 


BS 
ou 
nD 

a 


Pr 
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w 

Se OSE SR SR SR OSE OE OE 


443 
702 
432 
795 
1123 
1138 
1154 
608 


449 
662 
430 
705 
708 


681 
686 
689 
714 
406 
439 
533 
634 
738 
929 
1183 
639 
711 
443 
1018 
430 
432 
436 
406 
1128 
1141 


413 
920 
427 
567 
500 
686 
419 
421 
469 
417 
699 
730 
793 
898 
1083 
425 
449 
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436 
7196 
1125 
1139 
1155 
846 


505 
860 
509 
1039 


814 


413 
450 
562 
699 
740 
935 
1186 
696 


433 
437 
650 
1129 
1142 


505 
947 
1026 
974 
524 
935 
822 
476 


423 
702 
732 
794 
900 
1085 
991 
450 


650 
797 
1127 
1140 
1156 
920 


514 


667 


417 
451 
567 
718 
809 
952 
1190 


434 
438 
653 
1131 
1143 


509 
961 
1048 
576 
929 


809 


492 
705 
734 
795 
910 
1186 


451 


653 
798 
1128 
1141 
1207 
947 


520 


841 


419 
458 
574 
720 
822 
972 


439 
835 
1132 
1144 


514 
986 


578 
533 


551 
708 
736 
7196 
915 
1190 


458 


787 
826 
1129 
1142 


961 


551 


421 
459 
576 
722 
829 
991 


855 
1133 
1145 


520 
1009 


602 


587 
711 
738 
797 
929 


459 


788 
855 
1131 
1143 


986 


587 


423 
460 
578 
724 
835 
996 


874 
1134 
1146 


562 
1061 


612 


608 
714 
740 
798 
952 


460 
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789 
874 
1132 
1144 


1009 


425 
469 
598 
726 
865 
1018 


1117 
1135 
1149 


598 
1090 


614 


639 
718 
787 
814 
965 


790 
900 
1133 
1145 


1079 


427 
476 
602 
728 
871 
1026 


1119 
1136 
1150 


625 
1099 


616 


662 
720 
788 
826 
972 


791 
965 
1134 
1146 


1081 


433 
492 
612 
730 
885 
1048 


1121 
1137 
1151 


634 
1183 


1055 


667 
722 
789 
841 
996 


792 

1117 
1135 
1149 


1083 


434 
500 
614 
732 
898 
1055 


1123 
1138 
1154 


829 
1207 


681 
724 
790 
860 
1039 


793 

1119 
1136 
1150 


1085 


437 
524 
616 
734 
910 
1061 


1125 
1139 
1155 


846 


689 
726 
791 
865 
1079 


7 REXOS.MCR[, ] 
; CROSS REFERENCE LISTING 


BDOWN 
BQDOWN 


BQUP 
BRAM 


BRAMA 
BUP 


NOP 


QREG 
(U) ALUFN 


(U) ASR READ 
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197 # 436 
1079 1081 


196 # 
198 # 
195 # 406 
476 492 
602 612 
846 874 


1009 1018 
1125 1127 
1139 1140 
1155 1156 


194 # 686 
199 ¥# 432 
7193 794 
193 # 4l7 
705 708 
734 736 
965 972 
192 # 423 
160 # 

178 # 432 
696 7102 
793 794 
915 972 
162 # 

161 # 

166 # 

165 # 430 
164 # 458 
163 # 542 
181 # 855 
182 # 965 
177 # 433 
184 # 650 


1131 1132 
1143 1144 


175 # 500 
920 947 
174 # 
179 # 469 
996 1018 
185 # 417 
186 # 929 
187 # 492 
176 # 699 
172 # 
171 # 
170 # 
168 # 
169 # 
183 # 406 
602 612 
734 736 
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437 
1083 


413 
505 
614 
885 
1026 
1128 
1141 
1183 


433 
795 
900 
711 
738 
1039 
942 


436 
705 
795 
1039 


459 
543 
900 


434 
653 
1133 
1145 
505 
961 


476 
1026 
1190 
933 


413 
614 
738 


438 
1085 


419 
914 
616 
898 
1048 
1129 
1142 
1208 


434 
7196 
524 
714 
740 
1190 
943 


449 
708 
796 
1079 


460 


437 
874 
1134 
1146 
514 
986 


809 
1048 


419 
616 
740 


439 


421 
529 
625 
910 
1055 
1131 
1143 


520 
797 
639 
718 
814 


996 


551 
711 
797 
1081 


686 


438 
1117 
1135 
1149 
520 
1009 


822 
1055 


421 
718 
910 


449 


425 
533 
634 
920 
1061 
1132 
1144 


608 
798 
662 
720 
841 


1148 


587 
714 
798 
1083 


439 
1119 
1136 
1150 
524 
1061 


835 


423 
720 
1148 


450 


427 
562 
650 
935 
1090 
1133 
1145 


787 
826 
667 
722 
855 


1153 


608 
787 
814 
1085 


450 
1121 
1137 
1151 
562 
1090 


885 


425 
722 
1153 
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451 


430 
567 
653 
947 
1099 
1134 
1146 


788 


681 
724 
865 


1186 


639 
788 
826 


451 
1123 
1138 
1154 
598 
1099 


898 


427 
724 
1183 


909 


458 
574 
809 
952 
1117 
1135 
1149 


789 


689 
726 
871 


662 
789 
B41 


509 
1125 
1139 
1155 
625 
1208 


929 


367 
726 
1186 


551 


459 
576 
822 
961 
1119 
1136 
1150 


790 


696 
728 
900 


667 
790 
860 


1127 
1140 
1156 
634 


935 


574 
728 


587 


460 
578 
829 
986 
1121 
1137 
1151 


791 


699 


730 
915 


681 
791 
865 


1128 
1141 


829 


952 


576 
730 


860 


469 
598 
835 
991 
1123 
1138 
1154 


792 


702 


732 
929 


689 
792 
871 


1129 
1142 


846 


991 


578 
732 


7 REXO5.MCR[,] 


7 CROSS REFERENCE LISTING 


(U) 


(U) 


(U) 


{U) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


{U) 


F 
T 
ATA_CLEAR_ENB 
F 
T 
BHEADR_LOAD 
F 
T 
BIKER_LOAD 
F 
T 
BIKER READ 
F 
T 
BMODE_ LOAD 
F 
T 
BMODE_READ 
F 
T 
CARRY 
CMAX_ LOAD 
F 
. 


CMAX_READ 
F 
T 


COMP_ERROR_L 
F 
T 


COND 
ACQ1 .ACQO0 


ADD_TRAILER_L 


CPA 


DEMAND 


DPA 


END_EBL.DEM 


EXC. EOP 
FUNC_SEL 


GO.MBC_WRITE 


JUMP_ADRS 
NEG 

REG SEL 
RMR 


SEL_BOARD 1 


SPAREO3 
XPORT 
ZERO 
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NO 
eo 
tony 
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672 


416 


412 


412 


674 


412 


691 
430 


412 
691 
723 


834 
1054 


411 
985 


491 
630 
834 
995 
478 
821 
1174 
602 
566 
559 
870 
528 


951 
494 


1119 


468 
849 
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924 


1054 


928 


978 


458 


661 
693 
725 


884 


504 
1008 


633 
880 
1002 
499 
828 
1177 
607 
973 
995 


587 
532 


1121 


475 
859 


1189 


459 


664 
695 
727 


897 


513 
1060 


891 
1047 
523 
873 
1189 
611 
575 


1029 
554 


806 
887 


460 


666 
698 
729 


924 


519 
1089 


893 
1054 
540 
914 
1196 
613 
577 


902 


542 


669 
701 
731 


928 


624 
1098 


905 
1060 
541 
919 
1201 
615 
638 


647 


1015 
966 


543 


672 
704 
733 


934 


633 
1189 


909 
1089 
542 
974 
1207 


641 


652 


1044 
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686 

674 676 
707 710 
735 737 
951 978 
828 845 
1207 

924 928 
543 571 


1017 1117 


645 


678 
713 
7139 


990 


891 


937 


621 
1123 


680 
717 


995 


919 


954 


624 
1127 


685 
719 


1002 


946 


978 


649 
1165 


* REXO5.MCR[,] 


7 CROSS REFERENCE LISTING 


(U) 


(U) 


(U) 


CPA_CLK 
F 
T 


DPA_ERR_CLEAR 


F 
. 

DPC READ 
F 
x 

ENB ATA 
F 
T 

GO 
F 
T 

ID_SEL 
DRIVE 
SERIAL 

J 
ACQ.X 
ACQO 
ACQO0.1 
ACQO1 
ACQ1 
ACQ1.1 
CF..00 
CF..01 
CF..02 
Cr .«03 
CF..04 
CF..05 
CF..06 
CF..07 
CF..10 
fo) pea 
Cre 
CF13 
CF..14 
CF..15 
CF..16 
CP a7 
CF..20 
CF..21 
CF..22 
CF..23 
CF..24 
CF..25 
CF..26 
CF..27 
CF. .30 


CF..31 
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SROSR SR SR SR OG SR SR Sk YR SR OSE Sk Sk YR SR SR Se ME OSE OSE OSE SE 4K OSE OE 


747 
771 
791 


411 


678 


499 


405 
1132 
1144 


676 
693 


499 # 


523 # 


513 
519 # 


METIS CONTROL MICROCODE - MACH II 


749 751 753 295 757 

773 775 777 779 781 

792 793 794 795 796 

649 652 1183 1196 

523 

649 652 1117 1119 1121 
1133 1134 £135 1136 1137 


1145 1146 1149 1150 1151 


PAGE 


759 
783 
797 


1123 
1138 
1154 


28 


761 
785 
798 


1125 
1139 
1155 


763 
787 


1127 
1140 
1156 


765 
788 


1128 
1141 
1196 


767 
7189 


1129 
1142 
1201 


’ 


, 


REXO5.MCR(, ] 
CROSS REFERENCE LISTING 


CF..32 
CF. .33 
CF. .34 
CF..35 
CF. .36 
CF. .37 
CF.FIELD 
CFOL 
CFO2 
CFO4 
CF30 
CF34 
DEM1 .X 
DREGS 
EBL. LP 
GO.W.X 
IDLE 


ILF 


INIT 
PEXIT 
PKTST 
R. .00 
R..Q1 
R..02 
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SR SF Sh SR SR SE SR SR SR SR OSE SR OSE SR OSH OR OR OR SR OE OSE OR OR OR OE HEHEHE 


1183 # 


528 # 
985 
575 


540 
678 
808 
1127 
1132 
1144 


893 


577 638 
541 571 
680 688 
821 828 
1165 1168 
1133 1134 
1145 1146 
924 928 


METIS CONTROL MICROCODE - MACH ITI 


641 


621 
691 
873 
1174 
1135 
1149 


990 
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645 


649 
695 
919 
1189 
1137 
1151 


1047 


661 
698 
974 
1196 
1138 
1154 


1054 


666 
701 
1017 
1201 
1139 
1155 


1060 


669 
704 
1095 
1207 
1140 
1156 


1089 


672 
707 
1098 


1141 
1207 


1095 


’ 


. 
, 


REXOS.MCR[, ] 
CROSS REFERENCE LISTING 


a 
~ 
Qo 


R40 

R40ERT 
R40ERX 
R40FUN 
R40GOT 
R40GOX 
R40NGO 
R40PEX 
R41 

R42 
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737 
739 
747 
749 
751 
753 
755 
757 
7159 
761 
763 
765 
767 
769 
7721 
773 
775 
777 
179 
781 
783 
785 
787 
788 
789 
790 
791 
792 
793 
794 
795 
796 
797 
7198 
559 
494 
542 
951 
562 
664 
685 
816 
819 
717 
826 
747 
840 
849 
864 
854 
864 
845 
834 
749 
751 


SROSh SE SR SR SF OR OSE OR OSE OR OR OE OER OR OSE OE SRO ROSES SHER HEHE HRSEOSE HEHE RHEE 


571 
532 
551 
559 
966 
806 
813 
971 
819 
719 


834 
849 


852. 


870 
859 


852 
840 
739 
884 


$e OF SE FE Oe 


Sr Sr Hk Sr Fe 


554 


806 


941 
721 


867 


761 


MEIS CONTROL MICROCODE - MACH ITI 


590 647 652 659 # 
946 

723 7295 727 7129 
873 # 

767 771 783 785 
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731 


880 # 


733 


735 


737 


739 


. 
, 


. 
, 


REXO5S.MCR[, } 
CROSS REFERENCE LISTING 


R43 
R43CPA 
R44 
R45 
R50 
R51 
R51. .3 
R53 
R55 
R56 
R57 
R57..2 
R57, .3 
R60 
R60. .3 
R60, .5 
R60EW 
R61 
R64 


RMR 
RMRLD 
RMRPET 
SLIDE 
-DPA 
. ENDX 
. END 
- TRL 
-WRTA 
-WRTB 
W.WRT 


ZBztsaztz=z 


(U) MACRO% 


ASR_READ 
ATA_CLEAR_ENB 
BHEADR_LOAD 
BIKER_LOAD 
BIKER READ 
BMODE_ LOAD 
BMODE_READ 
BUFR_ADRS_ LOAD 
BUFR_DATA_LOAD 
BUFR PTR READ 
CLEAR_GO 


CLEAR_STATUS 


CMAX_LOAD 


CMAX_READ 


MICRO 20 (156) 


Nh 
Oo 
les) 
Se OSE SR SE SR SR OF OSE OF OE 


© 
wn 
Bb 

3 SF SF OS SH OH OE OM 


METS CONTROL MICROCODE - MACH II 


914 # 


1038 # 


789 


1082 


613 
638 # 


924 
1054 
928 


978 


763 


1119 
1136 
1150 
504 
960 
1128 
1141 
1156 
661 
693 
725 
884 


790 


1084 


615 


1189 


1121 
L137 
L151: 
913 
985 
1129 
1142 
1174 
664 
695 
727 
897 


791 


1089 # 


630 # 


1123 
1138 
1154 
519 
1008 
1131 
1143 
1177 
666 
698 
729 
924 


7192 


1125 
1139 
1155 
624 
1060 
1132 
1144 
1207 
669 
701 
731 
928 


793 


1127 
1140 
1156 
633 

1089 
1133 
1145 


672 
704 
733 
934 
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794 


1128 
1141 


649 

1098 
1134 
1146 


674 
707 
735 
951 


795 


1129 
1142 


652 

1117 
1135 
1149 


676 
710 
737 
978 


796 


1131 
1143 


828 

1119 
1136 
1150 


678 
713 
739 
990 


797 


798 


1133 
1145 


891 

1123 
1138 
1153 


685 
719 


1002 


; 


‘ 
, 


REXO5.MCRE, ] 
; CROSS REFERENCE LISTING 


COMP_ERROR_L 


CONTINUE 
CPA_CLK 


DPA_ERR_CLEAR 
DPC READ 
DRIVE_CLEAR 

DRIVE_ SEL 

ENB ATA 

END MASS READ 

END MASS WRITE 

END MASS WRITE TRAI 
ETHER ADRS LOAD 
ETHER ADRS READ 
FLUSH RX PAKT 
FLUSH TX BUFR 

GO 


ILLEGAL FUNCTION 


MAINT LOAD 
MAINT READ 
MBC_WRITE_ MODE 
PAKT STATUS READ 
RALU_READ 


RMR_LOAD 
RMR_TEST_GO 


RX_PAKT_ENB_0 
RX_PAKT_ENB_ 1 
SERIAL SEL 
SET_EBL 
SET_STATUS 
SET_TRA 


SLIDE_READ 
START MASS READ 
STATUS _READ 
SWREG_READ 
XPORT LOAD 
XPORT_READ_REQ 


XPORT_ READ 


{U) MAINT LOAD 


MICRO 20 (156) 


215 # 
960 

314 # 
391 # 
769 
790 
382 
327 
259 
387 
374 
287 
281 
247 
268 
250 
256 
253 
211 
1131 
1143 
1111 # 
1141 
359 
310 
227 
272 
315 
449 
638 
713 
7139 
399 # 
395 # 
773 

7192 

219 
223 

386 
366 
233 

370 

691 

723 

897 

1089 
275 

278 

319 
323 
339 
331 

1041 
335 # 
356 # 


FF HE SR OE MROSR SR SR OE SR SR OSE OE OSE OR OR OTE 


a 


Sh OS SR SE OSE 


411 
985 


747 
771 
791 
411 
678 
1125 
676 
499 
566 
641 
638 
1034 
1032 
1123 
1127 
405 
1132 
1144 
1128 
1142 
412 
669 
405 
471 
405 
450 
661 
717 
813 
445 
747 
775 
793 
405 
405 
693 
566 
411 
661 
693 
725 
924 


463 
1201 
491 
676 
638 
463 
1201 
468 


MEIS CONTROL MICROCODE - MACH II 


504 
1008 


749 
773 
792 
649 


1131 


523 
573 


649 
1133 
1145 
1129 
1143 
909 
964 
1148 
664 
412 
451 
666 
719 
840 


749 
777 
794 
1165 
1168 


573 
1148 
664 
695 
727 
928 


664 
693 
813 
471 


475 


513 
1060 


“51 
775 
7193 
652 


575 


652 
1134 
1146 
1132 
1144 
914 


1153 


416 
458 
680 
721 
864 


751 
7179 
795 
1174 
1177 


575 
1165 
666 
698 
729 
934 


934 
566 


808 


519 
1089 


753 
777 
794 
1183 


577 


117 
1135 
1149 
1133 
1145 
1186 


430 
459 
685 
723 
870 


757 
781 
796 


577 
1168 
669 
701 
731 
951 


971 
573 


821 


624 
1098 


755 
779 
795 
1196 


1119 
1136 
1150 
1134 
1146 


432 
460 
688 
725 
909 


759 
783 
797 


602 
1189 
672 
704 
733 
978 


1038 
575 


1017 


633 
1189 


757 
781 
7196 


1121 
1137 
1151 
1135 
1149 


433 
499 
695 
727 
914 


761 
785 
798 


611 
1196 
674 
707 
735 
990 


1123 
577 


1047 
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828 
1207 


759 
783 
797 


1123 
1138 
1154 
1136 
1150 


434 
504 
698 
729 
971 


763 
787 


613 
1201 
676 
710 
737 
995 


1125 
641 


B45 


761 
785 
798 


1125 
1139 
1155 
1137 
1151 


436 
508 
701 
731 
1038 


765 
788 


615 


678 
713 
739 
1002 


1127 
664 


891 


763 
787 


1127 
1140 
1156 
1138 
1154 


437 
513 
704 
733 
1186 


767 
7189 


680 
717 
834 
1025 


1131 
816 


919 


765 
788 


1128 
1141 
1196 
1139 
1155 


438 
519 
707 
735 
1189 


769 
790 


685 
719 
880 
1054 


937 


946 


767 
789 


1129 
1142 
1201 
1140 
1156 


439 
323 
710 
737 


7721 
791 


688 
721 
884 
1060 


1012 


; REXOS.MCRE, ] 
7 CROSS REFERENCE LISTING 


{U) 


{U) 


(U) 


(U) 


(J) 


(U) 


(U) 


(U) 


F 
T 
MAINT READ 
F 
T 
MBC_WRITE MODE 
F 
4 
RALU_READ 
F 
? 


RCON_ REQ 
BUFR_ADRS_LOAD 
BUFR _DATA_LOAD 
BUFR_PTR_READ 
DRIVE_CLEAR 
END_MASS_READ 
END MASS WRITE 
END MASS _WRITE_TRAI 
ETHER_ADRS_LOAD 
ETHER_ADRS READ 
FLUSH_RX_PAKT 
FLUSH_TX BUFR 
PAKT_STATUS_READ 
SLIDE_READ 
START MASS READ 
RCON_SET_ REQ 
F 
il 


RMR_LOAD 
F 
7 
RMR_TEST_GO 
F 
T 


RX_PAKT_ENB_0 
F 
c 
RX_PAKT ENB 1 
F 
aN 
SET EBL 
F 
ui 
SET_TRA 
F 
T 
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357 
358 
307 
308 
309 
224 
225 
226 
311 
312 
313 
449 
638 
713 
739 
243 
261 
264 
283 
258 
286 
280 
246 
267 
249 
220 
252 
271 
274 
277 
239 
240 
241 
765 
396 
397 
398 
392 
393 
394 
773 
7192 
216 
217 
218 
220 
221 
222 
363 
364 
365 
367 
368 
369 
691 


SSF SE OSE OS OS OR OSE OE OE TE 


Se SR SR SE SR OSE Se SE SR MR SE OSE SR SR OS OSE ORO OE OS OE OEE HE 


ROSE Se SR SR SR SR SR OSE OS OF OE 


412 


669 


405 


405 
450 
661 
717 
813 


685 
765 
1012 
1125 
566 
641 
638 
1034 
1032 
1123 
1127 
471 
463 
1201 


463 
1012 


445 


747 
775 
793 


405 


405 


566 


661 
693 
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909 


964 


1148 


412 
451 
666 
719 
840 
763 


1131 
573 


664 


471 
1032 


749 
777 
794 


1165 


1168 


573 


664 
695 


914 1186 

1153 

416 430 432 
458 459 460 
680 685 688 
721 723 725 
864 870 909 
575 S77 

566 973 575 
1034 1123 1125 
751 757 759 
779 781 783 
795 796 7197 
1174 

1177 

575 Se a 602 
666 669 672 
698 701 704 


433 
499 
695 
727 
914 


977 
1127 


761 
785 
798 


611 


674 
707 
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434 
504 
698 
729 
971 


638 
1131 


763 
787 


613 


676 
710 


436 
508 
701 
731 
1038 


641 
1201 


765 
788 


615 


678 
713 


437 
913 
704 
733 
1186 


664 


767 


789 


680 
717 


438 
519 
707 
735 
1189 


685 


769 


790 


685 
719 


439 
523 
710 
737 


763 


771 


791 


688 
721 


f 


REX05.MCR[, ] 


CROSS REFERENCE LISTING 


(U) STATUS 


F 


T 


F 
T 


(U) SWREG READ 


F 
T 


(U) XPORT LOAD 


(U) 


Be 
T 


F 
T 


(U) XPORT READ 


F 
T 


STATUS READ 


XPORT READ REQ 
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723 725 
897 924 
1089 
229 # 
230 # 405 
919 946 


1125 1127 
1139 1140 
1154 1155 
231 411 
316 
317 
318 
320 
321 
322 
336 
337 
338 
328 
329 
330 463 
1041 1201 
332 # 

333 # 

334 # 468 


491 


676 


638 


SRO SR SF OSE OSE OSE OSE OSE OR OEE HEHE 


MEIS CONTROL MICROCODE - MACH ITI 


727 
928 


504 
960 
1128 
1141 
1156 
1148 


664 


693 


813 


471 


475 


729 
934 


513 
985 
1129 
1142 
1174 
1165 


934 


966 


808 


731 
951 


919 

1008 
1131 
1143 
1177 
1168 


971 


573 


821 


733 
978 


624 

1060 
1132 
1144 
1207 
1189 


1038 


575 


1017 


735 
930 


633 

1089 
1133 
1145 


1196 


1123 


577 


1047 
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737 
995 


649 

1098 
1134 
1146 


1201 


1125 


641 


739 
1002 


652 

1117 
1135 
1149 


1127 


664 


834 
1025 


828 

1119 
1136 
1150 


1131 


816 


880 
1054 


845 

1121 
1137 
1151 


937 


884 
1060 


891 

1123 
1138 
1153 


1012 


REXO5.MCR[, } MICRO 20 (156) METIS CONTROL MICROCODE - MACH II PAGE 35 
LOCATION / LINE NUMBER INDEX 
DCODE LOC’N 0 1 2 3 4 5 6 7 


0000 


eS es eee & cs cernececs ccocrcccrces 


Segoe ecnsass 


cscgceres 


REX05.MCR[, ] 


LOCATION / LINE NUMBER INDEX 


UCODE LOC’N 


0000 
0010 
0020 
0030 
0040 
0050 
0060 
0070 


0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 


0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 


0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 


0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 


0500 
0510 
0320 
0530 
0540 
0550 
0560 
0570 


0 


406 
430 
443 
463 
500 
540 
571 
602 


630 
806 
841 
871 
900 
935 
965 
996 


1029 
1061 
1183 


1 


MICRO 20 (156) 


MEIS CONTROL MICROCODE - MACH II 


1079 


1081 


1083 


1085 


+ REXOS.MCR[,] 


} LOCATION / LINE NUMBER INDEX 


; UCODE LOC’N 


u 0600 
u 0610 
u_ 0620 
u 0630 
u 0640 
u 0650 
u 0660 
ue 0670 


u 0700 
u 0710 
ue 0720 
u 0730 
u 0740 
u 0750 
u 0760 
u_ 0770 


0 


1117 
1131 
1139 
1148 


662 
681 
705 
726 
747 
763 
779 
791 


no errors detected 
END OF MICRO CODE ASSEMBLY 
used 4.50 seconds 


ae 


1119 
1132 
1140 
1149 


664 
686 
708 
728 
749 
765 
781 
792 
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2 


1121 
1133 
1141 
1150 


667 
689 
711 
730 
154 
767 
783 
793 


3 


1123 
1134 
1142 
1151 


669 
691 
714 
732 
753 
7169 
785 
794 


MEIS CONTROL MICROCODE - MACH II 


1125 
1135 
1143 
1153 


672 
693 
718 
734 
755 
771 
787 
795 


1127 
1136 
1144 
1154 


674 
696 
720 
736 
757 
773 
788 
796 


1128 
1137 
1145 
1155 


676 
699 
722 
7138 
759 
775 
789 
797 


1129 
1138 
1146 
1156 


678 
702 
724 
740 
761 
777 
790 
798 


PAGE 37 


; BEXO8.MCR[,] MICRO 20(156) METS BARREL SHIFTER MICROCODE PAGE 1 
; TABLE OF CONTENTS 


63 FIELD DEFINITIONS 
147 BIT SELECTION AND SHIFTING MACROS 


> 248 INITIALIZATION AND IDLE LOOP 

> 296 MBC READ: HEADER MODE 0 - 16-BIT BINARY TO 16-BIT FORMATTED BINARY 
; 318 MBC READ: HEADER MODE 1 ~ 16-BIT BINARY TO 32-BIT FORMATTED BINARY 
>; 356 MBC READ: MODE 0 - 16-BIT BINARY TO 16-BIT FORMATTED BINARY 


; 375 MBC READ: MODE 


- 16-BIT BINARY TO 32-BIT FORMATTED BINARY 

- 16-BIT BINARY TO 36-BIT BINARY 

541 MBC READ: MODE - BYTE ASCII TO PACKED ASCII 

612 MBC READ: MODE - 16-BIT BINARY TO 16-BIT F.B. WITH BYTE SWAP 
630 MBC READ: MODE 5 - 8-BIT BINARY TO 9-BIT BINARY 

651 MBC READ: END CODE - ALL READ MODES 

708 MBC WRITE: HEADER MODE 0 - 16-BIT FORMATTED BINARY TO 16-BIT BINARY 
743 MBC WRITE: HEADER MODE 1 - 32-BIT FORMATTED BINARY TO 16-BIT BINARY 
780 MBC WRITE: MODE 0 - 16-BIT FORMATTED BINARY TO 16-BIT BINARY 


412 MBC READ: MODE 


Dm WH 


798 MBC WRITE: MODE 1 - 32-BIT FORMATTED BINARY TO 16-BIT BINARY 
834 MBC WRITE: MODE 2 - 36-BIT BINARY TO 16-BIT BINARY 

956 MBC WRITE: MODE 3 - PACKED ASCII TO BYTE ASCII 

1026 MBC WRITE: MODE 4 - 16-BIT F.B. TO 16-BIT BINARY WITH BYTE SWAP 
1044 MBC WRITE: MODE 5 - 9-BIT FORMATTED BINARY TO 8-BIT BINARY 

1063 MBC WRITE: END CODE - ALL WRITE MODES 


cross reference index 
dcode location / line # index 
ucode location / line # index 


i; BEXO8.MCR[, ] 
; BEXO08 MIC 


00:43 4-OCT-1983 


FRR oD DAHON DP WNP 
ro 


NPP RB RPE BP eB 
CHU BIDYOBWN 


NS 
a 


22 
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COMMENT 


C REC 

c00001 
c00004 
C00007 
c00009 
c00011 
c00018 
c00021 
C00023 
c00025 
C00027 
c00031 
C00037 
c00040 
c00041 
c00043 
c00047 
C00049 
c00051 
C00053 
C00055 
c00061 
c00064 
c00065 
C00066 
C00077 
Cc >} 


PAGE 

00001 
00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 
00012 
00013 
00014 
00015 
00016 
00017 
00018 
00019 
00020 
00021 
00022 
00023 
00024 
ENDMK 


METS BARREL SHIFTER MICROCODE 
FIELD DEFINITIONS 


DESCRIPTION 


- TITLE 


TOC 


.TOC 
«TOC 
TOC 
TOC 
TOC 
-TOC 
.TOC 
.»TOC 
~TOC 
-TOC 
- TOC 
TOC 
.-TOC 
.TOC 
TOC 
.-TOC 
-TOC 
TOC 
TOC 
TOC 


VALID 00024 PAGES 


PAGE 2 


"MEIS Barrel Shifter Microcode" 
"Pield Definitions" 
Input and Output Port Control 


"Bit selection and shifting macros" 
"Initialization and Idle loop" 


"MBC 
“MBC 
“MBC 
"MBC 
"MBC 
"MBC 
"MBC 
“MBC 
"MBC 
“MBC 
“MBC 
"MBC 
“MBC 
"MBC 
“MBC 
“MBC 
"MBC 
"MBC 


READ: 
READ: 
READ: 
READ: 
READ: 
READ: 
READ: 
READ: 
READ: 
WRITE? 
WRITE; 
WRITE: 
WRITE: 
WRITE: 
WRITE: 
WRITE: 
WRITE: 
WRITE: 


HEADER MODE 
HEADER MODE 


MODE 
MODE 
MODE 
MODE 
MODE 
MODE 


END CODE 
HEADER MODE 
HEADER MODE 


MODE 


0 


Dm WN bP 


5 


0 


MODE 1 


MODE 
MODE 
MODE 
MODE 


END CODE 


D> WN 


5 


0 
1 


- 16-BIT BINARY TO 16-BIT FORMATTED BINARY" 
- 16-BIT BINARY TO 32-BIT FORMATTED BINARY" 


- 16-BIT BINARY TO 16-BIT FORMATTED BINARY" 


16-BIT BINARY TO 32-BIT FORMATTED BINARY” 
16-BIT BINARY TO 36-BIT BINARY" 

BYTE ASCII TO PACKED ASCII" 

16-BIT BINARY TO 16-BIT F.B. WITH BYTE SWAP" 
8-BIT BINARY TO 9-BIT BINARY" 

ALL READ MODES" 

- 16-BIT FORMATTED BINARY TO 16-BIT BINARY" 
- 32-BIT FORMATTED BINARY TO 16-BIT BINARY" 
16-BIT FORMATTED BINARY TO 16-BIT BINARY" 
32-BIT FORMATTED BINARY TO 16-BIT BINARY" 
36-BIT BINARY TO 16-BIT BINARY" 

PACKED ASCII TO BYTE ASCII" 

16-BIT F.B. TO 16-BIT BINARY WITH BYTE SWAP" 
9-BIT FORMATTED BINARY TO 8-BIT BINARY" 

ALL WRITE MODES" 


BEX08 .MCR[,] 
BEX08 .MIC 
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30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
94 
55 
56 
57 
58 
59 
60 
61 
62 


MICRO 20(156) METIS BARREL SHIFTER MICROCODE PAGE 3 
FIELD DEFINITIONS 


-TITLE “MEIS Barrel Shifter Microcode" 

;Write prom files using WBEX1.SAI[MIC,GFS] 

723-NOV-82 Created BEX02 from BEX01 to eliminate deficiencies in 36-bit mode. 
728-DEC-82 Modified BEX02 to handle 32-bit header mode correctly. 


723-MAR-83 Created BEX03 from BEX02: added testing of XIPR1 during MPC Reads 
7so that the deassertion of DCON XIPR would be detected. The code then goes 
yto the appropriate end routine and generates transfers of zero-data bytes 
runtil BIKER ZERO is detected. 


728-MAR-83 Created BEX04 from BEX03: Changed code at RX.X and RX.L to load zeros 
rzinstead of data from the previous input word. The remainder of a received data 
sword is now zero instead of semi-random data. 


719-JUL-83 Created BEX05 from BEX04: Changed code in 36-bit binary to 16-bit 
rbinary mode. The XIP_0 branches are now all XIP_1 branches. This makes 1 and 
72 (36-bit) word transfers work. 


720-SEP-83 Created BEX06 from BEX05: Changed code in Packed ASCII to Byte Ascii 
smode. This makes transmission of all byte counts work. 


721-SEP-83 Created BEX07 from BEX06: Corrected a test in Packed ASCII to Byte 
Ascii mode at PABA4.X . A test of XIP_0 is now on the line following an Outreg 
;Load instead of the same line, to allow for pipeline delays. 


704-OCT-83 Created BEX08 from BEX07: Deleted much redundant code in Read and 
;Write 16-bit and 16-bit swapped modes (4 places total). Added 9-bit Binary 
;to/from 8-bit Binary Mode. 


? BEXO08 .MCR[, ] MICRO 20(156) MEIS BARREL SHIFTER MICROCODE PAGE 4 


? BEX08.MIC 00:43 4-OCT-1983 FIELD DEFINITIONS 
7 63 -TOC "Field Definitions" 
7; 64 
7 65 sPipeline next-address field 
7 66 
7; 67 J/=0,9,8,+ 
7 68 
7 69 ; Jump Field/Condition selection 
; 70 
a VE COND/=17,4,12,D 
7 72 MODE =00 
; 73 
7 74 WRT .XIP.HDR =04 
eRS 
; 76 SRC_ACK.HDR M  =11 
77 SRC_ACK.XIP_ 0 =12 
; 78 SRC_ACK.XIP_1 =13 
, 79 
7; 80 HDR_MODE =14 
7; 81 LAST _ACK =15 
7 82 OUTREG_MT =16 
; 83 JUMP_ADRS =17 
7 84 
7; 685 73 $2 $1 $0 
; 86 Has => <= == 
; 87 . X x X SELECTS LSB OF NEXT ADDRESS 
7; 88 7X X SELECTS NEXT 2 BITS OF 
7 89 ; NEXT ADDRESS FROM ONE OF 
7 90 ; FOUR SOURCES: 
7 91 70 0 MODE MODE XXX 
7; 92 70 1 WRT XIP XXX 
7 93 el 0 JUMP SRC_ACK XXX 
3 94 71 1 JUMP JUMP XXX 
7 95 
7 96 ;NOTE THAT S2 DOES DOUBLE DUTY. FOR A GIVEN VALUE 
7 97 7OF $2, THERE ARE 4 POSSIBLE TEST SELECTIONS FOR 
7 98 ;BIT 0 OF THE NEXT ADDRESS, AND 2 POSSIBLE TEST 
7 99 ;SELECTIONS FOR BITS 1 AND 2 OF THE NEXT ADDRESS. 
7 100 


+ BEX08 .MCR[, ] MICRO 20(156) METS BARREL SHIFTER MICROCODE PAGE 5 
+ BEX08.MIC 00:43 4-0CT-1983 FIELD DEFINITIONS 


7 102 yInput and Output Port Control 


, 103 

7) 104 INREG LOAD/=1,1,31,D 

7 105 F=1 

7 106 T=0 

7; 107 INREG_LOAD "INREG LOAD/T" 
7 108 

; 109 OUTREG LOAD/=1,1,30,D 

7 110 F=1 

76111 T=0 

7) 112 OUTREG LOAD "OUTREG_LOAD/T" 
7 113 

7 114 END_XFER/=0,1,29,D 

7115 F=0 

7 116 T=1 

, 117 END_XFER "END XFER/T" 

; 118 


7 119 sOutput port load controls 
7; 120 LOADL/=1,1,26,D 

7121 LOADL “LOADL/0" 

7; 122 

7123 LOADH/=1,1,25,D 

7 124 LOADH "LOADH/ 0" 

7; 125 


7 126 LOADX/=1,1, 24,D 

7 127 LOADX "LOADX/0" 

; 128 

*129 ;Bashing control 

; 130 

peT31 BYTE_SEL/=0,3,15,D 

¢; 132 

7 133 BASH/=0,2,28,D 

7; 134 

7135 ;Bit-Save register control 

7 136 

, 137 SAVE/=377,8,23,D sbit load is active low 

; 138 SAVEO “SAVE/000* sbit numbering is Big Endian (msb=bit 0) 
7; 139 SAVE1 “SAVE/200" 7SaveN: loading occurs from bit N 
7 140 SAVE2 "SAVE/300" ; gown to bit 7 


7 141 SAVE3 *SAVE/340" 
7 142 SAVE4 “SAVE/360" 
7, 143 SAVES “SAVE/370" 
7; 144 SAVE6 “SAVE/374" 
7145 SAVE7 “SAVE/376" 
7 146 


7; BEX08 .MCR[,] MICRO 20(156) MEIS BARREL SHIFTER MICROCODE PAGE 6 
7 BEXO8 .MIC 00:43 4-OCT-1983 BIT SELECTION AND SHIFTING MACROS 


147 -TOC "Bit selection and shifting macros" 


148 
149 7BXnn.Dm macros are used to select and load bits from a 36-bit word, 
150 rconsisting of 2 18-bit massbus transfers. "nn" selects the most significant 


151 rbit in the word (using PDP-10 nomenclature, bit 00 is msb), while "m" selects 
152 rwhere that bit is loaded in the 8-bit byte builder. The selected bit and all 
153 rless significant bits are loaded. The comment at the end of each line gives the 
154 mnumber of sequential bits the permutation provides. 

155 rExample: BX00.D1 loads the most significant bit of the input word into the 

156 rsecond most~significant bit of the byte-builder. Lower order bits of the byte- 
157 rbuilder are also loaded from the essentially down-shifted input word. The msb 
158 rof the byte-builder remains unchanged, and the least significant bit is garbage 


se Se 30 te Se Ne Ne Me 


i eT eT) 


159 7 (BX00.D0 only produces 6 usable bits). The result is 
7 160 
; 161 7 PP 00 01 02 03 04 05 GG (where PP=previous value and GG=garbage). 
7) 162 
7) 163 Bx00.D0O “BYTE SEL/7,BASH/2, SAVEO" 7; 6 BITS 
7; 164 Bx00.D1 "BYTE _SEL/7,BASH/1, SAVE1" 7; 6 BITS 
7 165 BX00.D4 "BYTE SEL/6,BASH/2, SAVE4" ; 4 BITS 
7; 166 Bx01.D0 “BYTE SEL/7,BASH/3, SAVEO" ; 5 BITS 
7 167 Bx02.D0 "BYTE SEL/2,BASH/0, SAVEO" ; 8 BITS 
7; 168 Bx04.D0 “BYTE _SEL/2,BASH/2, SAVEO" 7 6 BITS 
7; 169 BX06.D5 “BYTE SEL/1,BASH/3, SAVE5" 7; 3 BITS 
7 170 BX06.D6 “BYTE _SEL/1,BASH/2, SAVE6" 7; 2 BITS 
7.171 BxX06.D7 “BYTE SEL/1,BASH/1, SAVE7" ; 1 BIT 
7 172 Bx07.D1 "BYTE _SEL/1,BASH/0, SAVE1L" ; 3 BITS 
7; 173 Bx08.D0 “BYTE SEL/1,BASH/2, SAVEO" ; 6 BITS 
7 174 Bx08 .D4 "BYTE _SEL/2,BASH/2, SAVE4" ; 2 BITS 
FAS BxX10.D0 "BYTE _SEL/0,BASH/0, SAVEO" ; 8 BITS 
7 176 BX10.D6 "BYTE SEL/0,BASH/2, SAVE6" ; 2 BITS 
; 177 BxX12.D0 “BYTE _SEL/0,BASH/2, SAVEO" ; 6 BITS 
7 178 BX14.D1 “BYTE_SEL/0, BASH/3, SAVE1" ; 4 BITS 
7 179 BX14.D2 "BYTE _SEL/0,BASH/2, SAVE2" ; 4 BITS 
7 180 BX14.D6 “BYTE _SEL/3,BASH/2, SAVE6" 3; 2 BITS 
7181 BX16.D0 “BYTE_SEL/3,BASH/2, SAVEO" ; 2 BITS 
7 182 BX18 .D2 "BYTE _SEL/7,BASH/0, SAVE2" ; 6 BITS 
7 183 BX18.D5 “BYTE _SEL/6,BASH/1, SAVE5" ; 3 BITS 
7; 184 BX18.D6 “BYTE_SEL/6,BASH/0, SAVE6" 7 2 BITS 
7 185 BX20.D0 "BYTE _SEL/2,BASH/0, SAVEO" ; 8 BITS 
7 186 BX21.D1 "BYTE _SEL/2,BASH/0, SAVE1L" ; 7 BITS 
7; 187 BX24.D0 "“BYTE_SEL/1,BASH/0, SAVE0O" ; 8 BITS 
7 188 BX28 .D0 “BYTE_SEL/0,BASH/0, SAVEO™ ; 8 BITS 
7 189 BX28.D1 "BYTE SEL/1,BASH/3, SAVE1" 7; 4 BITS 
7; 190 BX32.D0 "BYTE _SEL/3,BASH/0, SAVEO" 7 4 BITS 
7; 192 BX32.D5 "BYTE SEL/3,BASH/3, SAVE5" ; 3 BITS 
7.192 
7 193 
7 194 7The Bnn.Dm macros are similar, except that the input is considered to be 
7 195 7l6-bit and the "nn" numbering is therefore done in PDP-11 fashion (bit 15 
7 196 zis the msb). 
7 197 
7; 198 B00 .DO “BYTE _SEL/3,BASH/3, SAVEO" ; 1 BITS 
7 199 B01.D0 "BYTE SEL/3,BASH/2, SAVEO" ; 2 BITS 
7 200 B01.D6 “BYTE SEL/0,BASH/0, SAVE6" 7; 2 BITS 
7 201 B02 .D6 “BYTE SEL/3,BASH/3, SAVE6" ; 2 BITS 
7 202 B03 .DO “BYTE _SEL/3,BASH/0, SAVEO" ; 4 BITS 
7 203 B03 .D6 "BYTE _SEL/3,BASH/2, SAVE6" 7; 2 BITS 
7 204 B03 .D7 "BYTE SEL/3,BASH/1, SAVE7" 7; 1 BIT 
7) 6205 B04 .DO “BYTE _SEL/0,BASH/3, SAVEO" 7; 5 BITS 
7 206 B05 .DO0 "BYTE _SEL/0,BASH/2, SAVEO" 3; 6 BITS 
7 207 B05 .D6 "BYTE _SEL/1,BASH/0, SAVE6" 7; 2 BITS 
7 208 B06.DO0 "BYTE_SEL/0,BASH/1, SAVEO" +; 7 BITS 
7 209 B06.D1 "BYTE SEL/0,BASH/0, SAVE1" 7; 7 BITS 
7 210 B06 .D4 "BYTE SEL/1,BASH/1, SAVE4" ; 3 BITS 
76211 B06.D5 "BYTE SEL/1,BASH/0, SAVES" 7? 3 BITS 
7 212 B06 .D6 "BYTE SEL/0,BASH/3, SAVE6" 7; 2 BITS 


Ne oNe Se Se Se te se te te te te 


213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
246 
247 


BO7.DO 
BO7.D6 
B08 .DO 
BO09.DO 
B09 .D6 
B10 .D6 
B11 .D0 
B11.D6 
B11.D7 
B12 .D0 
B13 .D0 
B13 .D6 
B14 .D0 
B14.D1 
B14.D4 
B14.D5 
B14.D6 
B15 .D0O 
B15 .D2 
B15.D4 
B15 .D6 
B15.D7 


*;BYTE_SEL/4 generates a field of zeros, which can 


"BYTE _SEL/0,BASH/0, SAVEO" 
"BYTE_SEL/0,BASH/2, SAVE6" 
“BYTE _SEL/1, BASH/3, SAVEO" 
"BYTE_SEL/1,BASH/2, SAVEO" 
"BYTE SEL/2,BASH/0, SAVE6" 
"BYTE _SEL/1, BASH/3, SAVE6" 
"BYTE_SEL/1,BASH/0, SAVEO" 
"BYTE SEL/1,BASH/2, SAVE6" 
“BYTE _SEL/1,BASH/1, SAVE7" 
“BYTE SEL/2,BASH/3, SAVEO" 
"BYTE _SEL/2,BASH/2, SAVEO* 
"BYTE SEL/3,BASH/0, SAVE6" 
"BYTE SEL/2,BASH/1, SAVEO” 
"BYTE SEL/2,BASH/0, SAVE1" 
"BYTE SEL/3,BASH/1, SAVE4" 
“BYTE SEL/3,BASH/0, SAVES" 
“BYTE SEL/2,BASH/3, SAVE6" 
"BYTE SEL/2,BASH/0, SAVEO" 
“BYTE SEL/3,BASH/2, SAVE2" 
"BYTE SEL/3,BASH/0, SAVE4" 
"BYTE SEL/2,BASH/2, SAVE6" 
“BYTE SEL/2,BASH/1, SAVE7" 


St a it BT Ot eT TT eT Ty 


BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BIT 

BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BITS 
BIT 
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then be loaded into 


ithe appropriate section of the output register with a SAVE. 


BZERO.D0 
BZERO.D1 
BZERO.D2 
BZERO.D4 
BZERO.D5 
BZERO.D6 
BZERO.D7 


"BYTE _SEL/4, SAVEO" 
"BYTE _SEL/4,SAVE1" 
“BYTE SEL/4,SAVE2" 
“BYTE _SEL/4, SAVE4" 
“BYTE_SEL/4, SAVE5" 
“BYTE _SEL/4, SAVE6" 
“BYTE SEL/4,SAVE7" 


U 
U 


BEX08 .MCR[,] 


BEX08 .MIC 


0000, 
0001, 
0002, 
0003, 


0004, 
0005, 
0006, 
0007, 


0010, 
0011, 
0012, 
0013, 


0014, 
0015, 
0016, 
0017, 


0020, 
0021, 
0022, 
0023, 


0024, 
0025, 
0026, 
0027, 


0030, 
0031, 
0032, 
0033, 


0034, 
0035, 
0036, 
0037, 


0002,0377, 7060 
0002,0377,7060 
0100,0377,7060 
0304,4377, 7060 


0002,0377, 7060 
0002, 0377, 7060 
0200,0377, 7060 
0344,4377,7060 


1027, 6374, 7060 
1117, 4377, 7060 
1407, 4377, 7060 
2617,4377, 7060 


3417, 6374, 7060 
3547,4377, 7060 
1407, 4377, 7060 
2617, 4377, 7060 


4657,4377,7060 
5007, 4377, 7060 
5257, 4377, 7060 
6427, 4377, 7060 


7167,4377, 7060 
7257,4377, 7060 
5257,4377,7060 
6427,4377,7060 


0405,4377, 7060 
0545, 4377, 7060 
0405, 4377, 7060 
0545, 4377, 7060 


4205, 0377, 7060 
4445,0377, 7060 
4205,0377, 7060 
4445,0377, 7060 
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248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
298 
259 
260 
261 
262 
263 
264 
265 
266 
267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 


MICRO 20(156) 


MEIS BARREL SHIFTER MICROCODE 


PAGE 7 


INITIALIZATION AND IDLE LOOP 


.TOC "Initialization and Idle loop" 


=000 
IDLE: COND/WRT.XIP.HDR,J/IDLE 
COND/WRT.XIP.HDR, J/ IDLE 
COND/MODE, J/MR.X 
COND/SRC_ACK.HDR_M, J/HR.SEL 
COND/WRT.XIP .HDR, J/ IDLE 
COND/WRT.XIP.HDR, J/ IDLE 
COND/MODE, J/MW. X 
COND/SRC_ACK.HDR_M, J/HW.SEL 
=000 
MR.X: J/B.F16,BZERO.D6 
J/B.F32 
J/B.B36 
J/BA.PA 
J/B.$16,BZERO.D6 
J/B.B09 
J/B.B36 
J/BA.PA 
=000 
MW.X: J/F16.B 
J/F32.B 
J/B36.B 
J/PA.BA 
J/F16.S 
J/B09.B 
J/B36.B 
J/PA.BA 
=00 
HR.SEL: COND/SRC_ACK.XIP_1,J/HR16.X 
COND/SRC_ACK.XIP_1,J/HR32.X 
COND/SRC_ACK.XIP_1,J/HR16.X 
COND/SRC_ACK.XIP_1,J/HR32.X 
=00 
HW.SEL: COND/SRC_ACK.XIP_0,J/HW16.X 


COND/SRC_ACK.XIP_0,J/HW32.X 
COND/SRC_ACK.XIP_0,J/HW16.X 
COND/SRC_ACK.XIP_0,J/HW32.X 


7no transfer in progress 

sno transfer in progress 

;Read mode: select which one 

;Read mode with Header: select Header 


;no transfer in progress 

sno transfer in progress 

;Write mode: select which one 

;Write mode with Header: select Header 


;select which Read mode 


;select which Write mode 


7HEADER, 
;HEADER, 
*HEADER, 
;HEADER, 


;HEADER, 
;HEADER, 
;HEADER, 
;HEADER, 


16-BIT BINARY READ MODE 
32-BIT BINARY READ MODE 
16-BIT BINARY READ MODE 
32-BIT BINARY READ MODE 


16-BIT BINARY WRITE MODE 
32-BIT BINARY WRITE MODE 
16-BIT BINARY WRITE MODE 
32-BIT BINARY WRITE MODE 


BEX08 .MCR[,] 


BEX08 .MIC 


0040, 
0041, 
0042, 
0043, 


0044, 
0045, 


0046, 
0047, 


0050, 


0052, 
0053, 


3657, 4377, 7060 
0405, 4377, 7040 
4147,4377, 7060 
0447, 6374, 7040 


0457,5000, 3060 
0467,4000,5060 


0467,0377, 6060 
0507,4377,7020 


0526,0377, 7060 


0100,0377, 7060 
0405, 4377, 7060 
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296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
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MBC READ: HEADER MODE 0 - 16-BIT BINARY TO 16-BIT FORMATTED BINARY 


-TOC “MBC READ: HEADER MODE 0 ~- 16-BIT BINARY TO 16-BIT FORMATTED BINARY" 


; THE 2 MSB’S OF EACH 18-BIT OUTPUT BYTE EQUAL ZERO. 


=00 

HR16.X: J/RX6X 
COND/SRC_ACK.XIP_1, INREG LOAD, J/HR16.X 
J/READ.FAIL 
BZERO.D6, INREG_ LOAD 


B15.D0, LOADX 
BO7.D0, LOADH 

=0 

HR16.2: LOADL,COND/OUTREG MT,J/HR16.2 
OUTREG_LOAD 


COND/HDR_MODE, J/HR16.HDR.X 
=0 
HR16.HDR.X:COND/MODE, J/MR.X 
COND/SRC_ACK.XIP_1,J/HR16.X 


7NO ACK, NO XIP, ALL DONE 
7;NO ACK, XIP 

7;ACK, NO XIP 

7ACK, XIP 


7LOAD WORD AND DECREMENT BIKER 


7SEE IF WE ARE STILL IN HEADER MODE 


7END OF HEADER MODE 
*CONTINUE IN HEADER MODE 


BEX08 


0054, 
0055, 
0056, 
0057, 


0051, 
0060, 
0061, 
0062, 


0064, 
0065, 
0066, 
0067, 


0063, 


0070, 
0071, 


0072, 
0073, 
0074, 


0076, 
0077, 


0075, 


0100, 
0101, 


»MCRI,] 
BEX08. 


MIC 


3657, 4377, 7060 
0545,4377, 7040 
4147,4377, 7060 
0517, 4377, 7040 


0607, 5374, 7460 
0617, 5000, 3460 
0627, 4374, 7460 
0645, 4000, 5460 


4017, 4377, 7060 
0645, 4377, 7040 
4147,4377, 7060 
0637,4377,7040 


0707,5374, 7460 


0707, 0377, 6060 
0727,5774, 7020 


0737, 4400,3060 
0747,5400,5060 
0767, 6360, 7060 


0767,0377, 6060 
0757,4377,7020 


1006, 0377, 7060 


0100,0377, 7060 
0545,4377,7060 


a ee eT eT en a ee a an ry 


318 
319 
320 
321 
322 
323 
324 
325 
326 
327 
328 
329 
330 
331 
332 
333 
334 
335 
336 
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347 
348 
349 
350 
351 
352 
353 
354 
355 


MICRO 20(156) 
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MBC READ: 


.TOC "MBC READ: HEADER MODE 


MEIS BARREL SHIFTER MICROCODE 
HEADER MODE 1 - 16-BIT BINARY TO 32-BIT FORMATTED BINARY 
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1 - 16-BIT BINARY TO 32-BIT FORMATTED BINARY" 


7; THE 4 LSB‘S OF EACH 36-BIT OUTPUT WORD EQUAL ZERO. 


=00 
HR32.X: J/RX6X 


7NO ACK, NO XIP 


COND/SRC_ACK.XIP_1, INREG_LOAD,J/HR32.X ;NO ACK, XIP 

J/READ. FAIL 7ACK, NO XIP 

INREG_LOAD yACK, XIP 

B15.D6 wget 2 bits 

B13 .D0, LOADX wget 6 bits 

BO7.D6 7get 2 bits 

B05 .D0, LOADH, COND/SRC_ACK.XIP_1,J/HR321.X 7;GET BYTES 2,3 
=00 sget 6 bits 


HR321.X:J/RX6L 


COND/SRC_ACK.XIP_1, INREG LOAD, J/HR321.X 


J/READ.FAIL 


INREG_ LOAD 
B15 .D6 sget 
=0 
HR321.2:LOADL, COND/OUTREG MT, J/HR321, 
B13.D6,OUTREG LOAD rget 
B11.D0, LOADX wget 
B03 .D0, LOADH rget 
BZERO.D4 7get 


=0 


HR322.2:LOADL, COND/OUTREG MT, J/HR322. 


OUTREG_LOAD 


il 


COND/HDR_MODE, J/HR32.HDR.X 
=0 
HR32.HDR.X:COND/MODE, J/MR.X 
COND/SRC_ACK.XIP_1, J/HR32.X 


a 


Z 


bits 


bits 


bits 
bits 


7;NO ACK, NO XIP 
*;NO ACK, XIP 
7;ACK, NO XIP 
7;ACK, XIP 


;LOAD WORD 0, BYTE 0 


bits of zero 


;LOAD WORD 0, BYTE 1 
7SEE IF WE ARE STILL IN HEADER MODE 


*END OF HEADER MODE 
;CONTINUE IN HEADER MODE 


BEX08 .MCR [, ] 


BEX08 .MIC 


0102, 


0104, 
0105, 
0106, 
0107, 


0103, 
0110, 


0112, 
0113, 


1045, 4377, 7060 


3657, 4377, 7060 
1045, 4377, 7040 
4147,4377, 7060 
1037, 6374, 7040 


1107,5000,3060 
1127, 4000,5060 


1127,0377, 6060 
1027, 4377, 7020 


00:43 4-OCT-1983 


356 
357 
358 
359 
360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 
372 
373 
374 


MICRO 20(156) MEIS BARREL SHIFTER MICROCODE PAGE 10 
MBC READ: MODE 0 - 16-BIT BINARY TO 16-BIT FORMATTED BINARY 


-TOC "MBC READ: MODE 0 - 16-BIT BINARY TO 16-BIT FORMATTED BINARY* 


THE 2 MSB’S OF EACH 18-BIT OUTPUT BYTE EQUAL ZERO. 
NOTE THAT "INREG LOAD" TS THE MIO OR MBUS REQUEST FOR MORE DATA ! 


B.F16: COND/SRC_ACK.XIP_1,J/BF16.X twait for Bytes 0 and 1 

=00 

BF16.X: J/RX6X 7;NO ACK, NO XIP 
COND/SRC_ACK.XIP_1, INREG _LOAD,J/BF16.X ;NO ACK, XIP 
J/READ.FAIL 7;ACK, NO XIP 
BZERO.D6, INREG_LOAD ;ACK, XIP 

= wget 2 bits of zero 
B15 .D0, LOADX rget 8 bits 
BO7.D0, LOADH 7get 8 bits 


BF16.2: LOADL,COND/OUTREG MT,J/BF16.2 ywait until the Outreg is empty 
OQUTREG LOAD, J/B.F16 jthen load it with Word 0, Byte 0 


; BEX08.MCR[,] MICRO 20(156) METS BARREL SHIFTER MICROCODE PAGE 11 


; BEXO8 .MIC 00:43 4-OCT-1983 MBC READ: MODE 1 - 16-BIT BINARY TO 32-BIT FORMATTED BINARY 
+ 375 -TOC "MBC READ: MODE 1 - 16-BIT BINARY TO 32-BIT FORMATTED BINARY" 
7 376 
7 377 7; THE 4 LSB’S OF EACH 36-BIT OUTPUT WORD EQUAL ZERO. 
7 378 
0111, 1145,4377,7060 ; 379 B.F32: COND/SRC_ACK.XIP_1,J/BF32.X swait for bytes 0 and 1 
7; 380 =00 
0114, 3657,4377,7060 ; 381 BF32.X: J/RX6X yrun out the Biker 
0115, 1145,4377,7040 ; 382 COND/SRC_ACK.XIP_1, INREG LOAD,J/BF32.X ;NO ACK, XIP 
0116, 4147,4377,7060 ; 383 J/READ. PAIL 7;ACK, NO XIP 
0117, 1207,4377,7040 ; 384 INREG LOAD ;take bytes 0 and 1 
7 385 = 
0120, 1217,5374,7460 ; 386 B15 .D6 7get 2 bits 
0121, 1227,5000,3460 ; 387 B13 .D0, LOADX 7get 6 bits 
0122, 1237,4374,7460 ; 388 BO7.D6 rget 2 bits 
0123, 1245,4000,5460 ; 389 BOS .D0, LOADH, COND/SRC_ACK.XIP_1,J/BF321.X 
7 390 sget 6 bits 
7 391 swait for bytes 2 and 3 
3; 392 =00 
0124, 4017,4377,7060 ; 393 BF321.X:J/RX6L 7finish byte with zeros 
0125, 1245,4377,7040 ; 394 COND/SRC_ACK.XIP_1, INREG LOAD, J/BF321.X ;NO ACK, XIP 
0126, 4147,4377,7060 ; 395 J/READ.FAIL ;ACK, NO XIP 
0127, 1307,4377,7040 }; 396 INREG_ LOAD stake bytes 2 and 3 
397 7 
0130, 1327,5374,7460 398 B15 .D6 sget 2 bits 
399 =0 
0132, 1327,0377, 6060 400 BF321.2:LOADL, COND/OUTREG MT,J/BF321.2 ;wait until the Outreg is empty 


0133, 1317,5774,7020 ; 401 B13 .D6, OUTREG_ LOAD sthen load it with Word 0, Byte 0 
7 402 rget 2 bits 
7 403 = 
0131, 1347,4400,3060 ; 404 Bil .D0O, LOADX iget 8 bits 
0134, 1357,5400,5060 ; 405 B03 .D0, LOADH rget 4 bits 
0135, 1367,6360,7060 ; 406 BZERO.D4 rget 4 bits of zero 
7 407 =0 
7 408 BF322.2:LOADL, COND/OUTREG MT,J/BF322.2 ;wait until the Outreg is empty 
7 409 J/B.F32,OUTREG_LOAD ;then load it with Word 0, Byte 1 
7 410 = 
7; 4211 


0136, 1367,0377, 6060 
0137, 1117,4377, 7020 


xs 


U 
U 


aaacc 


U 


U 


BEX08 .MCR[, ] 


BEX08 .MIC 


0140, 


0144, 
0145, 
0146, 
0147, 


0241, 
0142, 
0143, 
0150, 


0154, 
0155, 
0156, 
0157, 


0151, 


0152, 
0153, 


0160, 
0161, 


0164, 
0165, 
0166, 
0167, 


0162, 


0170, 
0171, 


0163, 
0172, 
0173, 


0174, 
0175, 
0176, 
0177, 


0200, 
0201, 


0202, 
0203, 


0204, 
0210, 


0211, 
0212, 


1445, 4377, 7060 


3657,4377, 7060 
1445, 4377,7040 
4147,4377, 7060 
1417,4377, 7040 


1427,5374,7460 
1437,5000,3460 
1507, 4374, 7460 
1545, 4000, 5460 


4017,4377, 7060 
1545,4377, 7040 
4147,4377, 7060 
1517,4377, 7040 


1527,5374,7460 


1527,0377, 6060 
1607,5774, 7020 


1617, 4400,3060 
1645,5400, 5060 


4007, 4377, 7060 
1645, 4377, 7040 
4147, 4377, 7060 
1627, 4377, 7040 


1707,5760, 7060 


1707,0377, 6060 
1637,4774,7420 


1727, 4400,3460 
1737,5774, 7460 
1745,5400,5460 


3777,4377, 7060 
1745, 4377, 7040 
4147,4377, 7060 
2007,4377, 7040 


2017,5700, 7460 
2027,4774, 7460 


2027,0377, 6060 
2047,5374, 7020 


2105, 4000, 3060 
3767,4377,5060 


2105,4377,7040 
4147,4377,7060 


Se eT ee ly ee ee ee ee Pe Pe Pe 


Se Se Se te te te te Se te te 


~e 
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412 
413 
414 
415 
416 
417 
418 
419 
420 
421 
422 
423 
424 
425 
426 
427 
428 
429 
430 
431 
432 
433 
434 
435 
436 
437 
438 
439 
440 
441 
442 
443 
444 
445 
446 
447 
448 
449 
450 
451 
452 
453 
454 
455 
456 
457 
458 
459 
460 
461 
462 
463 
464 
465 
466 
467 
468 
469 
470 
471 
472 
473 
474 
475 
476 
477 


MICRO 20 (156) 


METIS BARREL SHIFTER MICROCODE 


PAGE 12 


MBC READ: MODE 2 - 16-BIT BINARY TO 36-BIT BINARY 
-TOC "MBC READ: MODE 2 - 16-BIT BINARY TO 36-BIT BINARY" 
7; NINE (9) 16-BIT WORDS ARE BASHED INTO FOUR (4) 36-BIT WORDS. 
B.B36: COND/SRC_ACK.XIP_1,J/BB36.X swait for Bytes 0 and l 
=00 
BB36.X%: J/RX6X 7run out the Biker 
COND/SRC_ACK.XIP_1, INREG LOAD,J/BB36.X ;NO ACK, XIP 
J/READ,.FAIL 7ACK, NO XIP 
INREG_ LOAD 7take bytes 0 and 1 
B15 .D6 rget 2 bits 
B13 .D0, LOADX sget 6 bits 
B07.D6 iget 2 bits 
B0OS.D0, LOADH, COND/SRC_ACK.XIP_1,J/BB361.X 
sget 6 bits 
ywait for Bytes 2 and 3 
=00 


BB361.X:J/RX6L 


COND/SRC_ACK.XIP_1, INREG_ LOAD, J/BB361.X 


J/READ.FAIL 
INREG_ LOAD 


B15 .D6 
=0 


BB361.Z:LOADL, COND/OUTREG_MT, J/BB361.2 
B13.D6, OUTREG_LOAD 


;finish 


byte with zeros (same as F32 mode} 


7NO ACK, XIP 
7ACK, NO XIP 


stake bytes 0 and 1 


iget 2 bits 


rget 2 bits 
B11.D0, LOADX rget 8 bits 
B03 .D0, LOADH, COND/SRC_ACK.XIP_1,J/BB362.X 
sget 4 bits 
;wait for Bytes 4 and 5 
=00 
BB362.X:J/RX4L sfinish byte with zeros 
COND/SRC_ACK.XIP_1, INREG_LOAD,J/BB362.X ;NO ACK, XIP 
J/READ.FAIL 7ACK, NO XIP 
INREG LOAD stake Bytes 4 and 5 
B15 .D4 7get 4 bits 
=0 


BB3 62.2:LOADL, COND/OUTREG MT, J/BB362.2 
B11.D6, OUTREG_LOAD 


BO9.D0, LOADX iget 6 bits 

B03 .D6 rget 2 bits 

B0O1.D0, LOADH, COND/SRC_ACK.XIP_1,J/BB363.X 
rget 2 bits 


=00 
BB363.X:J/RX2L 


swait for Bytes 6 and 7 


;finish 


COND/SRC_ACK.XIP_1, INREG_LOAD, J/BB363.X 
J/READ .FAIL 
INREG_LOAD 


B15 .D2 
B11.D6 
=0 


BB363.2Z2:LOADL, COND/OUTREG MT, J/BB363.2Z 
B09 .D6,OUTREG_ LOAD 


B07.D0, LOADX, COND/SRC_ACK.XIP_1,J/BB364.X 


=00 


BB3 64.X:LOADH, J/RXOL 
COND/SRC_ACK.XIP_1, INREG_LOAD, J/BB364.X 
J/READ.FAIL 


byte with zeros 
7NO ACK, XIP 
7ACK, NO XIP 


stake Bytes 6 and 7 


7get 4 bits 
7get 2 bits 


swait until the Outreg is empty 
;then load it with Word 0, 


Byte 0 


ywait until the Outreg is Empty 
sthen load it with Word 0, 


Byte 1 


ywait until the Outreg is empty 


?LOAD WORD 1, BYTE 0 


7NO ACK, NO XIP 
7NO ACK, XIP 
7ACK, NO XIP 


?7GET BYTE 8,9 


acacd 


0213, 2057,4377,7040 3; 478 INREG LOAD 7;ACK, XIP 
7; 479 = 

0205, 2067,5000,5060 ; 480 B15 .D0, LOADH 
7 481 =0 


0206, 2067,0377,6060 3; 482 
0207, 2147,4374,7420 ; 483 

7 484 = 
0214, 2205,4000,3460 ; 485 

; 486 =00 
0220, 3757,4377,7060 ; 487 BB365.X:J/RX6H ;NO ACK, NO XIP 
0221, 2205,4377,7040 ; 488 COND/SRC_ACK.XIP_1, INREG_LOAD, J/BB365.X ;NO ACK, XIP 
0222, 4147,4377,7060 ; 489 J/READ.FAIL 7;ACK, NO XIP 


BB364.2:LOADL, COND/OUTREG MT, J/BB364.2 
BO7.D6,OUTREG LOAD ;LOAD WORD 1, BYTE 1 


B05.D0, LOADX, COND/SRC_ACK.XIP_1,J/BB365.X ;GET BYTES 10,11 


0223, 2157,4377,7040 ; 490 INREG_ LOAD 7ACK, XIP 
7 491 = 

0215, 2167,5374,7460 ; 492 B15 .D6 

0216, 2177,5000,5460 ; 493 B13 .D0, LOADH 

0217, 2247,4374,7460 ; 494 BO7 .D6 
7 495 =0 


0224, 2247,0377, 6060 496 BB365.Z2:LOADL, COND/OUTREG MT, J/BB365.2 


0225, 2267,4774,7020 3; 497 B05 .D6,OUTREG LOAD ;LOAD WORD 2, BYTE 0 


U 
U 


540 


498 = 
0226, 2305,5400,3060 ; 499 BO3.D0, LOADX, COND/SRC_ACK.XIP_1,J/BB366.X 7GET BYTES 12,13 
7; 500 =00 
0230, 3737,4377,7060 3; 501 BB366.X:J/RX4H 7;NO ACK, NO XIP 
0231, 2305,4377,7040 ; 502 COND/SRC_ACK.XIP_1, INREG_LOAD,J/BB366.X ;NO ACK, XIP 
0232, 4147,4377,7060 ; 503 J/READ.FAIL 7ACK, NO XIP 
0233, 2277,4377,7040 ; 504 INREG_LOAD 7;ACK, XIP 
7 505 = 
0227, 2347,5760,7060 ; 506 B15 .D4 
0234, 2367,4400,5060 ; 507 B11.D0, LOADH 
7 508 =0 
0236, 2367,0377,6060 ; 509 BB366.2:LOADL, COND/OUTREG MT, J/BB366.2 
0237, 2357,5774,7420 ; 510 B03 .D6, OUTREG_ LOAD ;LOAD WORD 2, BYTE 1 
7) $11 = 
0235, 2405,5400,3460 ; 512 BO1.D0, LOADX, COND/SRC_ACK.XIP_1,J/BB367.X 7;GET BYTES 14,15 
3 $13 =00 
fF 0240, 3727,4377,7060 ; 514 BB367.X:J/RX2H ;NO ACK, NO XIP 
¥ 0241, 2405,4377,7040 ; 515 COND/SRC_ACK.XIP_1, INREG_LOAD,J/BB367.X ;NO ACK, XIP 
j 0242, 4147,4377,7060 ; 516 J/READ,.FAIL 7;ACK, NO XIP 
0243, 2447,4377,7040 7; 517 INREG_ LOAD 7ACK, XIP 
7 518 = 
0244, 2457,5700,7460 7; 519 B15 .D2 
0245, 2467,4774,7460 ; 520 B11.D6 
0246, 2477,4400,5460 ; 521 B09 .D0, LOADH 
0247, 2507,5774,7460 7; 522 B03 .D6 
7 523 =0 
0250, 2507,0377,6060 ; 524 BB367.2:LOADL, COND/OUTREG MT, J/BB367.2Z 
0251, 2527,4374,7020 7; 525 B01.D6, OUTREG_LOAD ;LOAD WORD 3, BYTE 0 
7; 526 = 
0252, 2545,4377,3060 ; 527 LOADX, COND/SRC_ACK.XIP_1,J/BB368.X 7GET BYTES 16,17 
7 328 =00 
0254, 3707,4377,7060 ; 529 BB368.X:J/RXOH 7NO ACK, NO XIP 
0255, 2545,4377,7040 ; 530 COND/SRC_ACK.XIP_1, INREG_LOAD,J/BB368.X ;NO ACK, XIP 
0256, 4147,4377,7060 ; 531 J/READ.FAIL 7ACK, NO XIP 
0257, 2537,4377,7040 ; 532 INREG_LOAD 7ACK, XIP 
7 533 = 
0253, 2607,5000,7060 ; 534 B15 .DO 
0260, 2627,4000,5060 ; 535 B07.D0, LOADH 
7 536 =0 
0262, 2627,0377,6060 ; 537 BB369,2:LOADL, COND/OUTREG_ MT, J/BB369.2Z 
0263, 1407,4377,7020 ; 538 J/B.B36,OUTREG LOAD ;LOAD WORD 3, BYTE 1 
7 539 = 


> BEX08.MCR[,] 
> BEX08 .MIC 


MICRO 20(156) METS BARREL SHIFTER MICROCODE PAGE 13 
00:43 4-O0CT-1983 MBC READ: MODE 3 - BYTE ASCII TO PACKED ASCII 


7 541 -TOC "MBC READ: MODE 3 - BYTE ASCII TO PACKED ASCII" 


7 542 
7 543 ; FIVE (5) 16-BIT WORDS ARE BASHED INTO TWO (2) 36-BIT WORDS 
7 544 
0261, 2645,4377,7060 ; 545 BA.PA: COND/SRC_ACK.XIP_1,J/BAPA.X 7GET BYTES 0,1 
> 546 =00 
0264, 3657,4377,7060 ; 547 BAPA.X: J/RX6X 7NO ACK, NO XIP 
0265, 2645,4377,7040 ; 548 COND/SRC_ACK.XIP_1, INREG_LOAD,J/BAPA.X ;NO ACK, XIP 
0266, 4147,4377,7060 ; 549 J/READ.PAIL 7ACK, NO XIP 
0267, 2707,4377,7040 ; 550 INREG LOAD 7ACK, XIP 
7; 551 = 
0270, 2717,5374,7660 ; 552 B14 .D6 
0271, 2727,5000,3660 ; 553 B12 .D0, LOADX 
0272, 2737,4770,7060 ; 554 B06.D5 
0273, 2745,5400,5060 ; 555 B03 .D0, LOADH, COND/SRC_ACK.XIP_1,J/BAPA1.X 7GET BYTES 2,3 
7 556 =00 
0274, 4007,4377,7060 ; 557 BAPA].X:J/RX4L 7NO ACK, NO XIP 
0275, 2745,4377,7040 ; 558 COND/SRC_ACK.XIP_1, INREG_LOAD,J/BAPA1.X ;NO ACK, XIP 
0276, 4147,4377,7060 ; 559 J/READ. FAIL 7ACK, NO XIP 
0277, 3007,4377,7040 ; 560 INREG_LOAD 7ACK, XIP 
7; 561 = 
0300, 3017,5760,7260 ; 562 B14 .D4 
0301, 3027,4776,7260 ; 563 B11.D7 
7; 564 =0 
0302, 3027,0377,6060 ; 565 BAPA1.2:LOADL, COND/OUTREG MT,J/BAPA1.2 
0303, 3047,4774,7620 ; 566 B10 .D6,OUTREG LOAD ;LOAD WORD 0, BYTE 0 
7 567 = 
0304, 3057,4400,3660 ; 568 B08 .D0, LOADX 
0305, 3105,4200,7060 ; 569 B06.D1, COND/SRC_ACK.XIP_1,J/BAPA2.X #GET BYTES 4,5 
7 570 =00 
0310, 3767,4377,5060 ; 571 BAPA2.X:LOADH, J/RXOL 7NO ACK, NO XIP 
0311, 3105,4377,7040 ; 572 COND/SRC_ACK.XIP_1, INREG_LOAD,J/BAPA2.X ;NO ACK, XIP 
0312, 4147,4377,7060 ; 573 J/READ.FAIL 7ACK, NO XIP 
0313, 3067,4377,7040 ; 574 INREG_LOAD 7ACK, XIP 
+ 575 = 
0306, 3077,5000,5260 ; 576 B14.D0, LOADH 
0307, 3147,6376,7060 ; 577 BZERO.D7 
7 578 =0 
0314, 3147,0377,6060 ; 579 BAPA2.2Z:LOADL, COND/OUTREG MT, J/BAPA2.2 
0315, 3167,4374,7620 ; 580 B06.D6,OUTREG LOAD 7LOAD WORD 0, BYTE 1 (LSB=0) 
7 581 = 
0316, 3205,4000,3660 ; 582 B04.D0, LOADX, COND/SRC_ACK.XIP_1,J/BAPA3 .X 7GET BYTES 6,7 
7 583 =00 
0320, 3747,4377,7060 ; 584 BAPA3.X:J/RX5H 7NO ACK, NO XIP 
0321, 3205,4377,7040 ; 585 COND/SRC_ACK.XIP_1, INREG_LOAD,J/BAPA3.X ;NO ACK, XIP 
0322, 4147,4377,7060 ; 586 J/READ.FAIL 7ACK, NO XIP 
0323, 3177,4377,7040 ; 587 INREG_LOAD 7ACK, XIP 
7 588 = 
0317, 3247,5770,7060 ; 589 B14.D5 
0324, 3257,4400,5060 ; 590 B11.D0, LOADH 
0325, 3267,4760,7260 ; 591 BO6.D4 
0326, 3307,5776,7260 +; 592 B03 .D7? 
7 593 =0 
0330, 3307,0377,6060 ; 594 BAPA3.2:LOADL, COND/OUTREG_MT,J/BAPA3.2Z 
0331, 3277,5774,7620 ; 595 B02 .D6,OUTREG LOAD 7LOAD WORD 1, BYTE 0 
7 596 = 
0327, 3345,5400,3660 ; 597 B00 .D0, LOADX, COND/SRC_ACK.XIP_1,J/BAPA4 .X 7GET BYTES 8,9 
7 598 =00 
0334, 3717,4377,7060 ; 599 BAPA4.X:J/RX1H 7NO ACK, NO XIP 
0335, 3345,4377,7040 ; 600 COND/SRC_ACK.XIP_1, INREG _LOAD,J/BAPA4.X ;NO ACK, XIP 
0336, 4147,4377,7060 ; 601 J/READ.FAIL 7ACK, NO XIP 
0337, 3327,4377,7040 ; 602 INREG_LOAD 7ACK, XIP 
7 603 = 
0332, 3337,5200,7060 ; 604 B14.D1 
0333, 3407,4000,5260 ; 605 B06.D0, LOADH 
0340, 3427,6376,7060 ; 606 BZERO.D7 


0342, 
J 0343, 


3427,0377, 6060 
2617, 4377, 7020 


607 
608 
609 
610 
611 


=0 
BAPA4 .2:LOADL, COND/OUTREG MT, J/BAPA4.2Z 
J/BA.PA, OUTREG_LOAD 


7LOAD WORD 1, 


BYTE 1 (LSB=0) 


; BEX08.MCR{,] 
: BEX08.MIC 00:43 4-OCT-1983 MBC READ: MODE 4 


MICRO 20(156) MEIS BARREL SHIFTER MICROCODE PAGE 14 
- 16-BIT BINARY TO 16-BIT F.B. WITH BYTE SWAP 


7 612 -TOC "MBC READ: MODE 4 - 16-BIT BINARY TO 16-BIT F.B. WITH BYTE SWAP" 


; 613 
+ 614 ; THE 2 MSB’S OF EACH 18-BIT OUTPUT BYTE EQUAL ZERO. 
7 615 
0341, 3445,4377,7060 ; 616 B.S$16: COND/SRC_ACK.XIP_1,J/BS16.X ;GET BYTES 0,1 
7; 617 =00 
0344, 3657,4377,7060 ; 618 BS16.X: J/RX6X 7;NO ACK, NO XIP 
0345, 3445,4377,7040 3; 619 COND/SRC_ACK.XIP_1, INREG_LOAD,J/BS16.X ;NO ACK, XIP 
0346, 4147,4377,7060 ; 620 J/READ.PAIL 7;ACK, NO XIP 
0347, 3507,6374,7040 ; 621 BZERO.D6, INREG LOAD 7ACK, XIP 
7) 622 = 
0350, 3517,4000,3060 ; 623 B07 .D0, LOADX 
0351, 3527,5000,5060 ; 624 B15 .D0, LOADH 
7 625 = 
0352, 3527,0377,6060 ; 626 BS16.Z2: LOADL,COND/OUTREG MT,J/BS16.2 
0353, 3417,4377,7020 3; 627 OUTREG LOAD,J/B.S16 
7 628 s 


629 


BEX08 .MCR[, ] 


BEX08 .MIC 


0354, 


0360, 
0361, 
0362, 
0363, 


0355, 
0356, 
0357, 
0364, 


0366, 
0367, 


3605, 4377, 7060 


3657,4377, 7060 
3605, 4377, 7040 
4147, 4377, 7060 
3557, 6374, 7040 


3567,5376, 7260 
3577,5000,3260 
3647, 6376, 7060 
3667,4000, 5060 


3667,0377, 6060 
3547,4377, 7020 


630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
647 
648 
649 
650 


MICRO 20(156) 
00:43 4-OCT~1983 


-TOC "MBC READ: MODE 5 


B.BO9: 
=00 
BBO9.X: 


=0 
BBO9.Z: 


MBC READ: MODE 5 


COND/SRC_ACK.XIP_1,J/BB09.X 


J/RX6X 


MEIS BARREL SHIFTER MICROCODE 
- 8-BIT BINARY TO 9-BIT BINARY 


PAGE 15 


- 8-BIT BINARY TO 9-BIT BINARY" 


THE MSB OF EACH 9-BIT OUTPUT BYTE EQUALS ZERO. 
NOTE THAT "INREG LOAD" IS THE MIO OR MBUS REQUEST FOR MORE DATA ! 


fwait for Bytes 0 and 1 


COND/SRC_ACK.XIP_1, INREG_LOAD, J/BB09.X 


J/READ.FAIL 
BZERO.D6, INREG_ LOAD 


B15.D7 

B14 .D0, LOADX 
BZERO.D7 

B07 .D0, LOADH 


LOADL, COND/OUTREG MT,J/BB09.2 
OUTREG LOAD,J/B.B09 


rget 
wget 
rget 
7get 
7get 


OPAPP HE 


7;NO ACK, NO XIP 
7;NO ACK, XIP 
;ACK, NO XIP 
7;ACK, XIP 

bit of zero 

bit 

bits 

bit of zero 

bits 


swait until the Outreg is empty 


7then load it with Word 0, 


Byte 0 


BEX08 .MCR[,] MICRO 20(156) MEIS BARREL SHIFTER MICROCODE PAGE 16 
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BEX08 .MIC 00:43 4-OCT-1983 MBC READ: END CODE - ALL READ MODES 
7 651 .TOC "MBC READ: END CODE - ALL READ MODES" 
7; 652 
; 653 ; THESE ARE THE END ROUTINES FOR ALL OF THE READ MODES. 
7 654 
7 655 y The correct end routine is found by examining the next Bxx.Dn and LOADz 
7 656 + following it, where "n" ranges from 0 to 7 and "z" is one of "X", "H", or "L". 
7. 657 ; The end routine is then RxXnz. 
+ 658 
7; 659 ; **** Enter here to finish the byte with the correct number of zero bits: 
7; 660 
U 0365, 4037,6374,7060 ; 661 RX6X: BZERO.D6,J/RX.X sget 2 bits of zero and go finish up 
; 662 
3; 663 
U 0370, 4047,6000,7060 ; 664 RXOH: BZERO.DO, J/RX.H 7get 8 bits of zero and go finish up 
3; 665 
U 0371, 4047,6200,7060 ; 666 RX1H: BZERO.D1,J/RX.H sget 7 bits of zero and go finish up 
+ 667 
U 0372, 4047,6300,7060 ; 668 RX2H: BZERO.D2,J/RX.H zget 6 bits of zero and go finish up 
; 669 
U 0373, 4047,6360,7060 ; 670 RX4H: BZERO.D4,J/RX.H sget 4 bits of zero and go finish up 
3; 671 
U 0374, 4047,6370,7060 3; 672 RX5H: BZERO.D5,J/RX.H sget 3 bits of zero and go finish up 
7 673 
U 0375, 4047,6374,7060 ; 674 RX6H: BZERO.D6,J/RX.H 7get 2 bits of zero and go finish up 
7; 675 
3; 676 
U 0376, 4057,6000,7060 ; 677 RXOL: BZERO.D0,J/RX.L sget 8 bits of zero and go finish up 
3; 678 
U 0377, 4057,6300,7060 ; 679 RX2L: BZERO.D2,J/RX.L rget 6 bits of zero and go finish up 
7 680 
U 0400, 4057,6360,7060 ; 681 RX4L: BZERO.D4,J/RX.L sget 4 bits of zero and go finish up 
3 682 
U 0401, 4057,6374,7060 ; 683 RX6L: BZERO.D6,J/RX.L #get 2 bits of zero and go finish up 
3 684 
7 685 ; **** This loop generates zero-data SCLKS until the Biker is zero 
3 686 
U 0402, 4037,6374,7060 ; 687 RX: BZERO.D6 wget 2 bits of zero 
U 0403, 4047,6000,3060 ; 688 RX.X: BZERO.DO, LOADX jload X-byte and get 8 bits of zero for H 
U 0404, 4057,6000,5060 ; 689 RX.H: BZERO.D0, LOADH jload H-byte and get 8 bits of zero for L 
U 0405, 4067,0377,6060 ; 690 RX.L: LOADL, COND/OUTREG MT, J/RX.L.X jload L-byte and wait for Outreg Empty 
7 691 =0 
U 0406, 4067,0377,7060 ; 692 RX.L.X: COND/OUTREG MT, J/RX.L.X ywait until the Outreg is empty 
U 0407, 4105,0377,7060 ; 693 COND/SRC_ACK.XIP_0,J/RX.B.X ;see if the Biker is zero 
7 694 = 
7; 695 =00 
U 0410, 0007,4377,7160 ; 696 RX.B.X: END_XFER, J/IDLE sBiker is zero, get out 
U 0411, 4027,4377,7020 ; 697 J/RX,OUTREG LOAD ;Biker is not zero, continue 
7; 698 sload the Outreg with a zero-data byte 
U 0412, 4147,4377,7060 ; 699 J/READ.FAIL 7ACK, NO XIP 
U 0413, 4027,4377,7020 ; 700 J/RX,OUTREG LOAD ;Biker is not zero, continue 
7 701 sload the Outreg with a zero-data byte 
7 702 = 
7; 703 
7 704 ;**** COMMON FAIL CODE FOR LOGIC ANALYZER TRIGGER **** 
U 0414, 0007,4377,7160 ; 705 READ .FAIL: END_XFER,J/IDLE 
7 706 


7107 


U 


BEX08 
BEX08 


0420, 
0421, 
0422, 
0423, 


0415, 
0416, 


0424, 
0425, 


0417, 
0430, 
0431, 
0432, 
0433, 


0426, 
0427, 


0434, 
0435, 


0436, 


0440, 
0441, 


-MCR[,] 
.MIC 


7547,4377, 7060 
4205,0377, 7040 
7567,4377, 7060 
4157, 4377, 7040 


4167,5000, 7060 
4247, 4000, 5060 


4247,0377, 6060 
4177, 4377, 7020 


4305,0377, 7060 
7547, 4377, 7060 
4305,0377, 7040 
71567,4377, 7060 
4267, 4377, 7040 


4277,5000,7060 
4347,4000,5060 


4347,0377, 6060 
4367,4377, 7020 


4406,0377, 7060 


0200,0377,7060 
4205,0377, 7060 


708 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
722 
723 
724 
725 
726 
727 
728 
129 
730 
731 
732 
733 
7134 
735 
7136 
737 
738 
7139 
740 
741 
742 
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MBC WRITE: HEADER MODE 0 
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~ 16-BIT FORMATTED BINARY TO 16-BIT BINARY 


.TOC "MBC WRITE: HEADER MODE 0 - 16-BIT FORMATTED BINARY TO 16-BIT BINARY" 


; THE 2 MSB’S OF EACH 18-BIT INPUT BYTE ARE ZERO, 


=00 
HW16.X: J/WRT.END 


COND/SRC_ACK.XIP_0, INREG_ LOAD, J/HW16.X 


J/WRITE FAIL 
INREG LOAD 


BxX02.D0 
BX10.D0, LOADH 
=0 


HW16.2: LOADL, COND/OUTREG MT,J/HW16.2 


OUTREG LOAD 


COND/SRC_ACK.XIP_0,J/HW161.X 
=00 
HW161.X:J/WRT.END 


COND/SRC_ACK.XIP_0, INREG_ LOAD, J/HW161.X 


J/WRITE.FAIL 
INREG LOAD 


BxX02.D0 
BX10.D0, LOADH 
=0 


HW161.2:LOADL, COND/OUTREG MT,J/HW161.2Z 


OUTREG_ LOAD 


rT] 


COND/HDR_MODE, J/HW16.HDR.X 
=0 
HW16.HDR.X: COND/MODE, J/MW.X 
COND/SRC_ACK.XIP_0,J/HW16.X 


7;END XFER, ALL DONE 
7NO ACK, XIP 

7ACK, NO XIP 

7;ACK, XIP 


;LOAD WORD 0 AND DECREMENT BIKER 
; TEST BIKER 

7END XFER, 1 OR 2 BYTES OUT 

7;NO ACK, XIP 


7;ACK, NO XIP 
7;ACK, XIP 


7LOAD WORD 1 AND DECREMENT BIKER 
7SEE IF WE ARE STILL IN HEADER MODE 


7END OF HEADER MODE 
;CONTINUE IN HEADER MODE 


BEX08 
BEX08 


0444, 
0445, 
0446, 
0447, 


0437, 
0442, 
0443, 
0450, 


0452, 
0453, 


0451, 
0454, 
0455, 
0456, 
0457, 


0460, 
0461, 


0462, 
0463, 


0464, 


0466, 
0467, 


-MCR[,] 
»MIC 


7547,4377, 7060 
4445,0377, 7040 
7567,4377,7060 
4377,4377, 7040 


4427, 7400, 7460 
4437,4774,7460 
4507,4400,5460 
4527,5774, 7460 


4527,0377, 6060 
4517, 4377, 7020 


4545,1400,7460 
7547,4377, 7060 
4545,0377,7040 
7567,4377, 7060 
4607,4377,7040 


4617, 7700, 7060 
4627, 4400, 5060 


4627,0377, 6060 
4647,4377,7020 


4666,0377, 7060 


0200,0377, 7060 
4445,0377,7060 


743 
744 
745 
746 
747 
748 
749 
750 
751 
7152 
753 
7154 
755 
756 
757 
758 
7159 
760 
761 
7162 
763 
764 
765 
766 
7167 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
778 
779 
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MBC WRITE: HEADER MODE 1 - 32-BIT FORMATTED BINARY TO 16-BIT BINARY 


"MBC WRITE: HEADER MODE 1 - 32-BIT FORMATTED BINARY TO 16-BIT BINARY" 


; THE 4 LSB’S OF EACH 36-BIT INPUT WORD ARE IGNORED. 


=00 


HW32.X: J/WRT.END 


=0 


HW32,.2: LOADL,COND/OUTREG MT, J/HW32.2 


=00 


COND/SRC_ACK.XIP_0, INREG LOAD, J/HW32.X 


J/WRITE .FAIL 
INREG_LOAD 


Bx00.D0 
BxX06.D6 
Bx08 .D0, LOADH 
BX14.D6 


QUTREG LOAD 


BX16.D0,COND/SRC_ACK.XIP_0,J/HW321.X 


HW321.X:J/WRT.END 


=0 


HW321.2:LOADL, COND/OUTREG_MT,J/HW321.2 


=0 


HW32.HDR.X: COND/MODE, J/MW.X 
COND/SRC_ACK.XIP_0,J/HW32.X 


COND/SRC_ACK.XIP_0, INREG LOAD, J/HW321.X 


J/WRITE .FAIL 
INREG LOAD 


BX18 .D2 
BX24.D0,LOADH 


OUTREG_LOAD 


COND/HDR_MODE, J/HW32.HDR.X 


7GET WORD 0, BYTE 0 

;FULL CYCLE OUT, ALL DONE 
7;NO ACK, XIP 

7ACK, NO XIP 

7ACK, XIP 


7LOAD WORD 0 


;GET WORD 0, BYTE 1 
71 OR 2 BYTES OUT 
7;NO ACK, XIP 

7ACK, NO XIP 

7ACK, XIP 


7LOAD WORD 1 
73 OR 4 BYTES OUT 
;SEE IF WE ARE STILL IN HEADER MODE 


7;END OF HEADER MODE 
;CONTINUE IN HEADER MODE 


; BEXO8.MCR[, ]} MICRO 20(156) MEIS BARREL SHIFTER MICROCODE PAGE 19 


; BEX08 .MIC 00:43 4-OCT-1983 MBC WRITE: MODE 0 - 16-BIT FORMATTED BINARY TO 16-BIT BINARY 
+ 780 -TOC "MBC WRITE: MODE 0 - 16-BIT FORMATTED BINARY TO 16-BIT BINARY” 
r 781 
> 782 ; THE 2 MSB’S OF EACH 18-BIT INPUT BYTE ARE IGNORED. 
+ 783 
0465, 4705,0377,7060 ; 784 F16.B: COND/SRC_ACK.XIP_0,J/F16B.X ;GET BYTE 0 
+ 785 =00 
0470, 7547,4377,7060 ; 786 F16B.X: J/WRT.END ;FULL CYCLE OUT, ALL DONE 
0471, 4705,0377,7040 ; 787 COND/SRC_ACK.XIP_0, INREG LOAD,J/F16B.X ;NO ACK, XIP 
0472, 7567,4377,7060 ; 788 J/WRITE.FAIL ;ACK, NO XIP 
0473, 4747,4377,7040 ; 789 INREG LOAD ;ACK, XIP 
7 6790 = 
0474, 4757,5000,7060 3; 791 Bx02.D0 
0475, 4767,4000,5060 3; 792 BX10.D0, LOADH 
+ 793 =0 
0476, 4767,0377,6060 ; 794 F16B.2: LOADL, COND/OUTREG MT,J/F16B.2 
0477, 4657,4377,7020 ; 795 OUTREG LOAD,J/F16.B 
7 796 = 


197 


; BEX08.MCR(, ] 


MICRO 20(156) METIS BARREL SHIFTER MICROCODE PAGE 20 


833 


; BEX08.MIC 00:43 4-OCT-1983 MBC WRITE: MODE 1 - 32-BIT FORMATTED BINARY TO 16-BIT BINARY 
7; 798 -TOC “MBC WRITE: MODE 1 - 32-BIT FORMATTED BINARY TO 16-BIT BINARY* 
7 799 
7 800 ; THE 4 LSB’S OF EACH 36-BIT INPUT WORD ARE IGNORED. 
7; 801 
0500, 5045,0377,7060 ; 802 F32.B: COND/SRC_ACK.XIP_0,J/F32B.X 7GET WORD 0, BYTE 0 
7 803 =00 
0504, 7547,4377,7060 ; 804 F32B.X: J/WRT.END 7;PFULL CYCLE OUT, ALL DONE 
0505, 5045,0377,7040 ; 805 COND/SRC_ACK.XIP_0, INREG_LOAD,J/F32B.X ;NO ACK, XIP 
0506, 7567,4377,7060 ; 806 J/WRITE.FAIL 7ACK, NO XIP 
0507, 5017,4377,7040 ; 807 INREG LOAD 7;ACK, XIP 
7 808 = 
0501, 5027,7400,7460 ; 809 Bx00.D0 
0502, 5037,4774,7460 ; 810 Bx06.D6 
0503, 5107,4400,5460 ; 811 Bx08.D0, LOADH 
0510, 5127,5774,7460 ; 812 BX14.D6 
7 813 =0 
0512, 5127,0377,6060 ; 814 F32B.2: LOADL,COND/OUTREG MT, J/F32B.2 
0513, 5117,4377,7020 ; 815 OUTREG LOAD 
7 816 = 
0511, 5145,1400,7460 ; 817 BX16.D0,COND/SRC_ACK.XIP_0,J/F32B1.X ;LOAD WORD 0 
; 818 =00 7;GET WORD 0, BYTE 1 
0514, 7547,4377,7060 ; 819 F32B1.X:J/WRT.END 71 OR 2 BYTES OUT 
0515, 5145,0377,7040 ; 820 COND/SRC_ACK.XIP_0, INREG LOAD,J/F32B1.X ;NO ACK, XIP 
0516, 7567,4377,7060 ; 821 J/WRITE.FAIL 7ACK, NO XIP 
0517, 5207,4377,7040 ; 822 INREG_LOAD 7ACK, XIP 
7 823 = 
0520, 5217,7700,7060 ; 824 BX18,D2 
0521, 5227,4400,5060 ; 825 BX24.D0, LOADH 
7 826 =0 
0522, 5227,0377,6060 ; 827 F32B1.2:LOADL, COND/OUTREG MT, J/F32B1.2 
0523, 5247,4377,7020 ; 828 OUTREG_LOAD 
; 829 = 
0524, 5045,0377,7060 ; 830 COND/SRC_ACK.XIP_0,J/F32B.X 7LOAD WORD 1 
7 831 73 OR 4 BYTES OUT 
7 832 


; BEX08 .MCR[, ] MICRO 20(156) MEIS BARREL SHIFTER MICROCODE PAGE 21 
; BEX08 MIC 00:43 4-OCT-1983 MBC WRITE: MODE 2 - 36-BIT BINARY TO 16-BIT BINARY 
7 834 -TOC "MBC WRITE: MODE 2 - 36-BIT BINARY TO 16-BIT BINARY” 
7 835 
7; 836 ; FOUR (4) 36-BIT WORDS ARE BASHED INTO NINE (9) 16=BIT WORDS. 
7 837 
0525, 5305,4377,7060 ; 838 B36.B: COND/SRC_ACK.XIP_1,J/B36B.X 7;GET WORD 0, BYTE 0 
7 839 =00 
0530, 7547,4377,7060 ; 840 B36B.X: J/WRT.END 7;FULL CYCLE OUT, ALL DONE 
0531, 5305,4377,7040 ; 841 COND/SRC_ACK.XIP_1, INREG_LOAD,J/B36B.X ;NO ACK, XIP 
0532, 7567,4377,7060 ; 842 J/WRITE.PAIL 7;ACK, NO XIP 
0533, 5267,4377,7040 ; 843 INREG LOAD 7;ACK, XIP 
7 844 = 
0526, 5277,7400,7460 ; 845 Bx00.D0 rget 6 bits 
0527, 5347,4774,7460 ; 846 Bx06.D6 7get 2 bits 
0534, 5357,4400,5460 ; 847 Bx08.D0, LOADH yload. get 6 bits 
0535, 5367,5774,7460 ; 848 BX14.D6 7get 2 bits 
7 849 =0 
0536, 5367,0377,6060 ; 850 B36B.Z2: LOADL, COND/OUTREG MT,J/B36B.2 ;WAIT FOR OUTREG EMPTY 
0537, 5407,4377,7020 ; 851 OUTREG LOAD 7;LOAD WORD 0 
7 852 = 
0540, 5445,5400,7460 ; 853 BX16.D0,COND/SRC_ACK.XIP_1,J/B36B1.X BRANCH ON INPUT READY 
7 854 iget 2 bits 
7 855 =00 7;GET WORD 0, BYTE 1 
0544, 7547,4377,7060 ; 856 B36B1.X:J/WRT.END 71 OR 2 BYTES OUT 
0545, 5445,4377,7040 ; 857 COND/SRC_ACK.XIP_1, INREG_LOAD,J/B36B1.X ;NO ACK, XIP 
0546, 7567,4377,7060 ; 858 J/WRITE.FAIL ;ACK, NO XIP 
0547, 5417,4377,7040 ; 859 INREG_LOAD 7ACK, XIP 
7; 860 = 
0541, 5427,7700,7060 ; 861 BX18.D2 rget 6 bits 
0542, 5507,4400,5060 ; 862 BX24.D0, LOADH ;load. get 8 bits 
7; 863 =0 
0550, 5507,0377,6060 ; 864 B36B1.Z2:LOADL, COND/OUTREG MT,J/B36B1.2 ;WAIT FOR OUTREG EMPTY 
0551, 5437,4377,7020 ; 865 OUTREG_LOAD 7;LOAD WORD 1 
7; 866 = 
0543, 5545,5400,7060 ; 867 BX32.D0,COND/SRC_ACK.XIP_1, J/B36B2.X 7;BRANCH ON INPUT READY 
, 868 sget 4 bits 
7; 869 =00 7;GET WORD 1, BYTE 0 
0554, 7507,4377,5060 +; 870 B36B2.X:LOADH, J/WE.1B36 71 36-BIT WORD OUT, OUTPUT 12 BITS 
0555, 5545,4377,7040 ; 871 COND/SRC_ACK.XIP_1, INREG_LOAD,J/B36B2.X ;NO ACK, XIP 
0556, 7567,4377,7060 ; 872 J/WRITE .FAIL 7;ACK, NO XIP 
0557, 5527,4377,7040 3; 873 INREG_LOAD 7ACK, XIP 
7 874 = 
0552, 5537,7360,7460 ; 875 Bx00.D4 iget 4 bits 
0553, 5607,5000,5460 ; 876 BX04.D0, LOADH yload. get 6 bits 
0560, 5627,4374,7460 ; 877 BxX10.D6 ;get 2 bits 
7; 878 =0 
0562, 5627,0377,6060 ; 879 B36B2.2:LOADL, COND/OUTREG_MT,J/B36B2.2 7WAIT FOR OUTREG EMPTY 
0563, 5617,4000,7420 ; 880 BX12.D0,OUTREG LOAD 7get 6 bits 7LOAD WORD 2 
7; 881 = 
0561, 5645,4377,7060 7; 882 COND/SRC_ACK.XIP_1,J/B36B3.X 7;GET WORD 1, BYTE 1 
7 883 =00 
0564, 7547,4377,7060 ; 884 B36B3 .X:J/WRT.END 75 OR 6 BYTES OUT 
0565, 5645,4377,7040 ; 885 COND/SRC_ACK.XIP_1, INREG_LOAD,J/B36B3.X ;NO ACK, XIP 
0566, 7567,4377,7060 ; 886 J/WRITE.FAIL 7ACK, NO XIP 
0567, 5707,4377,7040 ; 887 INREG_LOAD 7ACK, XIP 
7 888 = 
0570, 5717,7374,7060 ; 889 BX18 .D6 iget 2 bits 
0571, 5727,5000,5060 ; 890 BX20.D0, LOADH jload. get 8 bits 
7 891 =0 
0572, 5727,0377,6060 ; 892 B36B3.2:LOADL, COND/OUTREG MT, J/B36B3.2 7WAIT FOR OUTREG EMPTY 
0573, 5747,4000,7020 ; 893 BX28.D0,OUTREG LOAD wget 8 bits 7;LOAD WORD 3 
7 894 = 
0574, 6005,4377,5060 ; 895 LOADH, COND/SRC_ACK.XIP_1,J/B36B4.X 7GET WORD 2, BYTE 0 
; 896 =00 
0600, 7477,4377,7060 }; 897 B36B4.X:J/WRT.END.O 72 36-BIT WORDS OUT, OUTPUT 8 BITS 
0601, 6005,4377,7040 ; 898 COND/SRC_ACK.XIP_1, INREG_LOAD,J/B36B4.X ;NO ACK, XIP 
0602, 7567,4377,7060 ; 899 J/WRITE.FAIL 7;ACK, NO XIP 


aqaqaacda 


U 
U 


0603, 


0575, 
0576, 


0604, 
0605, 


0577, 
0606, 


0610, 
0611, 
0612, 
0613, 


0607, 


0614, 
0615, 


0616, 
0620, 
0621, 
0622, 
0623, 


0617, 


0624, 
0625, 


0626, 
0627, 


0630, 
0631, 
0632, 
0633, 


0634, 


0636, 
0637, 


0635, 


0640, 
0641, 


5757, 4377, 7040 


5767, 7400, 7460 
6047, 4774, 7460 


6047,0377, 6060 
5777, 4400, 7420 


6067,5774, 7460 
6105, 5400,5460 


7477, 4377, 7060 
6105, 4377, 7040 
7567, 4377, 7060 
6077, 4377,7040 


6147, 7700, 7060 


6147,0377, 6060 
6167, 4400, 7020 


6205,5400,5060 
7557, 4377, 6060 
6205, 4377, 7040 
7567,4377,7060 
6177,4377, 7040 
6247, 7360,7460 


6247, 0377, 6060 
6267,5000,7420 


6277, 4374,7460 
6305, 4000,5460 


7477, 4377, 7060 
6305,4377,7040 
7567,4377, 7060 
6347,4377, 7040 


6367, 7374, 7060 


6367,0377, 6060 
6357,5000, 7020 


6407, 4000,5060 


6407,0377, 6060 
5257, 4377, 7020 


900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
924 
925 
926 
927 
928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 


TINREG_ LOAD 
Bx00.D0 tget 6 bits 
BxX06.D6 7get 2 bits 


=0 
B36B4.Z2:LOADL, COND/OUTREG MT, J/B36B4.2 
BX08.D0,OUTREG LOAD 7get 6 bits 


BX14.D6 sget 2 bits 


BX16.D0, LOADH, COND/SRC_ACK.XIP_1,J/B36B5.X 


7get 2 bits 

=00 

B36B5.X:J/WRT.END.O 
COND/SRC_ACK.XIP_1, INREG_ LOAD, J/B36B5.X 
J/WRITE.FAIL 
INREG_ LOAD 
BX18.D2 iget 6 bits 

=0 

B36B5.2:LOADL, COND/OUTREG_MT,J/B36B5.2 
BX24.D0,OUTREG_LOAD sget 8 bits 


BX32.D0, LOADH, COND/SRC_ACK.XIP_1,J/B36B6.X 


sget 4 bits 
=00 
B36B6.X:LOADL, J/WE. 2B36 
COND/SRC_ACK.XIP_1, INREG_LOAD,J/B36B6.X 
J/WRITE FAIL 


INREG_ LOAD 
Bx00.D4 rget 4 bits 
Bs ca6. eDADT, Coun /SuTAER Mer a/asenes 
BxX04,.D0,OUTREG_LOAD sget 6 bits 
7 BX10.D6 rget 2 bits 


BX12.D0, LOADH, COND/SRC_ACK.XIP_1,J/B36B7.X 


rget 6 bits 
=00 
B36B7.X:J/WRT.END.O 
COND/SRC_ACK.XIP_1, INREG_LOAD, J/B36B7.X 


J/WRITE .FAIL 
INREG LOAD 
BX18 .D6 7get 2 bits 
=0 
B36B7.2:LOADL, COND/OUTREG MT, J/B36B7.2 
BX20.D0,OUTREG_LOAD iget 8 bits 
BX28.D0, LOADH rget 8 bits 


=0 
B36B8.Z:LOADL, COND/OUTREG MT, J/B36B8.2Z 
J/B36.B,OUTREG LOAD 


7;ACK, XIP 


;LOAD WORD 4 


7GET WORD 2, 


710 OR 11 BYTES OUT, NEED OUTPUT 


7NO ACK, XIP 
7;ACK, NO XIP 
7;ACK, XIP 


;LOAD WORD 5 


7;GET WORD 3, 


73 36-BIT WORDS OUT, OUTPUT 4 BITS 


7;NO ACK, XIP 
7ACK, NO XIP 
7ACK, XIP 


7;LOAD WORD 6 


714 OR 15 BYTES OUT, NEED OUTPUT 


7NO ACK, XIP 
7ACK, NO XIP 
7ACK, XIP 


7LOAD WORD 7 
716 BYTES OUT 


7;LOAD WORD 8 
74 36-BIT WORDS OUT 


BYTE 


BYTE 


1 


0 


7GET WORD 3, BYTE 1 
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; BEX08.MIC 00:43 4-OCT-1983 MBC WRITE: MODE 3 ~- PACKED ASCII TO BYTE ASCII 
7; 956 -TOC “MBC WRITE: MODE 3 - PACKED ASCII TO BYTE ASCII" 
7; 957 
7 958 ; TWO (2) 36-BIT WORDS ARE BASHED INTO FIVE (5) 16-BIT WORDS. 
7 959 
0642, 6445,0377,7060 ; 960 PA.BA: COND/SRC_ACK.XIP_0,J/PABA.X 7;GET WORD 0, BYTE 0 
7 961 =00 
0644, 7547,4377,7060 ; 962 PABA.X: J/WRT.END 7;FULL CYCLE OUT, ALL DONE 
0645, 6445,0377,7040 ; 963 COND/SRC_ACK.XIP_0, INREG_LOAD,J/PABA.X ;NO ACK, XIP 
0646, 7567,4377,7060 ; 964 J/WRITE FAIL 7ACK, NO XIP 
0647, 6437,6000,7040 ; 965 BZERO.D0, INREG_ LOAD 7ACK, XIP 
7 966 = 
0643, 6507,7600,7260 ; 967 BXx00.D1 
0650, 6517,4776,7260 ; 968 Bx06.D7 
0651, 6527,4600,5060 ; 969 BX07.D1, LOADH 
7; 970 =0 
0652, 6527,0377,6060 ; 971 PABA.Z: LOADL, COND/OUTREG MT,J/PABA.Z 
0653, 6547,4377,7020 ; 972 OQUTREG_LOAD 
7 973 = 
0654, 6605,0200,7660 ; 974 BX14,.D1,COND/SRC_ACK.XIP_0,J/PABA1.X 7LOAD WORD 0 
7 975 =00 *GET WORD 0, BYTE 1 
0660, 7547,4377,7060 ; 976 PABA1,.X:J/WRT.END 71 OR 2 BYTES OUT 
0661, 6605,0377,7040 ; 977 COND/SRC_ACK.XIP_0, INREG_LOAD,J/PABA1.X ;NO ACK, XIP 
0662, 7567,4377,7060 ; 978 J/WRITE.FAIL 7ACK, NO XIP 
0663, 6557,4377,7040 ; 979 INREG_LOAD 7ACK, XIP 
7 980 = 
0655, 6567,7370,7260 ; 981 BX18.D5 
0656, 6647,5200,5060 ; 982 BX21.D1, LOADH 
7 983 =0 
0664, 6647,0377,6060 ; 984 PABA1.2:LOADL, COND/OUTREG_MT,J/PABA1.2 
0665, 6577,4600,7620 ; 985 BX28.D1,OUTREG LOAD ;LOAD WORD 1 
7; 986 = 
0657, 6705,5770,7660 ; 987 BX32.D5,COND/SRC_ACK.XIP_1,J/PABA2.X 7GET WORD 1, BYTE 0 
7 988 =00 
0670, 7445,0377,5060 ; 989 PABA2.X:COND/SRC_ACK.XIP_0,J/PABA.EXIT, LOADH 73,4 OR 5 BYTES OUT, TEST WHICH 
0671, 6705,4377,7040 ; 990 COND/SRC_ACK.XIP_1, INREG_LOAD,J/PABA2.X ;NO ACK, XIP 
0672, 7567,4377,7060 ; 991 J/WRITE.PAIL 7ACK, NO XIP 
0673, 6667,4377,7040 ; 992 INREG_LOAD 7ACK, XIP 
7 993 = 
0666, 6677,7600,5260 ; 994 BX00.D1, LOADH 
0667, 6747,4776,7260 ; 995 BxX06.D7 
7; 996 =0 
0674, 6747,0377,6060 ; 997 PABA2.2:LOADL, COND/OUTREG MT, J/PABA2.2 
0675, 6767,4600,7020 ; 998 BxX07.D1,OUTREG LOAD ;LOAD WORD 2 
7 999 = 
0676, 7005,0200,5660 ; 1000 BX14.D1,LOADH, COND/SRC_ACK.XIP_0,J/PABA3.X 7GET WORD 1, BYTE 1 
; 1001 =00 
0700, 7547,4377,7060 ; 1002 PABA3.X:J/WRT.END 76 BYTES OUT, EXIT 
0701, 7005,0377,7040 ; 1003 COND/SRC_ACK.XIP_0, INREG_LOAD,J/PABA3.X ;NO ACK, XIP 
0702, 7567,4377,7060 ; 1004 J/WRITE .FAIL 7ACK, NO XIP 
0703, 6777,4377,7040 ; 1005 INREG_LOAD 7ACK, XIP 
7 1006 = 
0677, 7047,7370,7260 ; 1007 BX18.D5 
7; 1008 =0 


0704, 7047,0377,6060 ; 1009 PABA3.2:LOADL, COND/OUTREG_MT,J/PABA3.2 


0705, 7067,5200,7020 ; 1010 BX21.D1,OUTREG_ LOAD ;LOAD WORD 3 


aaaa 


; 1011 = ;THIS IS FOR 8 BYTES OUT 
0706, 7105,0377,7060 ; 1012 COND/SRC_ACK.XIP_0 7;WE ARE ONLY INTERESTED IN TESTING THE BYTE COUNT 
71013 =00 
0710, 7547,4377,7060 ; 1014 PABA4.X:J/WRT.END 77 OR 8 BYTES OUT, EXIT 
0711, 7137,4377,7060 ; 1015 J/PABA4 .Y¥ 
0712, 7547,4377,7060 ; 1016 J/WRT.END 77 OR 8 BYTES OUT, EXIT 
0713, 7077,4600,5660 ; 1017 PABA4.Y:BX28.D1, LOADH 
7 1018 = 
0707, 7147,5770,7660 ; 1019 BX32.D5 
7 1020 =0 
0714, 7147,0377,6060 ; 1021 PABA4.2:LOADL, COND/OUTREG_MT,J/PABA4.2 


uU 0715, 


6427,4377, 7020 


1022 
1023 
1024 
1025 


J/PA.BA,OUTREG_LOAD 


7LOAD WORD 4 
*THIS IS FOR 9 OR 10 BYTES OUT 


> BEXO8 .MCR[, ] 
>; BEX08 .MIC 00:43 4-OCT-1983 
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MBC WRITE: MODE 4 - 16-BIT F.B. TO 16-BIT BINARY WITH BYTE SWAP 


7 1026 .TOC "MBC WRITE: MODE 4 - 16-BIT F.B. TO 16-BIT BINARY WITH BYTE SWAP" 


7 1027 
; 1028 ; THE 2 MSB’S OF EACH 18-BIT INPUT BYTE ARE IGNORED. 
7 1029 
0716, 7205,0377,7060 ; 1030 F16.S: COND/SRC_ACK.XIP_0,J/F16S.X 7GET BYTE 0 
7 1031 =00 
0720, 7547,4377,7060 ; 1032 F16S.X: J/WRT.END 7;FULL CYCLE OUT, ALL DONE 
0721, 7205,0377,7040 ; 1033 COND/SRC_ACK.XIP_0,INREG_LOAD,J/F16S.X ;NO ACK, XIP 
0722, 7567,4377,7060 ; 1034 J/WRITE.FAIL 7ACK, NO XIP 
0723, 7177,4377,7040 ; 1035 INREG_ LOAD ;ACK, XIP 
7; 1036 = 
0717, 7247,4000,7060 ; 1037 BX10.D0 
0724, 7267,5000,5060 ; 1038 Bx02.D0, LOADH 
7 1039 = 
0726, 7267,0377,6060 ; 1040 F16S.Z2: LOADL,COND/OUTREG MT,J/F16S.2 
0727, 7167,4377,7020 ; 1041 OUTREG LOAD,J/F16.5 
7 1042 = 


1043 


BEX08 .MCR[, ] 


BEX08 .MIC 


0725, 


0730, 
0731, 
0732, 
0733, 


0734, 
0735, 
0736, 


0740, 
0741, 


7305,0377, 7060 


7547,4377, 7060 
7305,0377, 7040 
7567, 4377, 7060 
7347,4377, 7040 


7357, 7400, 7660 
7367,4770, 7660 
7407, 4000, 5060 


7407,0377, 6060 
7257,4377, 7020 


00:43 4-OCT-1983 


1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
1057 
1058 
1059 
1060 
1061 
1062 


-TOC "MBC WRITE: MODE 5 


MICRO 20(156) METS BARREL SHIFTER MICROCODE 


MBC WRITE: MODE 5 - 9-BIT 


~ 9-BIT FORMATTED 


; THE MSB OF EACH 9-BIT INPUT BYTE IS IGNORED. 


BO9.B: 
=00 
BO9B.X: 


BO9B.2Z: 


COND/SRC_ACK.XIP_0,J/B09B.X 


J/WRT .END 

COND/SRC_ACK.XIP_0, INREG_LOAD, J/B09B.X 
J/WRITE FAIL 

INREG_ LOAD 

BxX01.D0 7get 5 
BX06.D5 rget 3 
BX10.D0, LOADH rget 8 


LOADL, COND/OUTREG MT,J/B09B.Z 
OUTREG_LOAD, J/B09.B 


PAGE 24 
FORMATTED BINARY TO 8-BIT BINARY 


BINARY TO 8-BIT BINARY" 


;GET BYTE 0 


;FULL CYCLE OUT, ALL DONE 
7NO ACK, XIP 

;ACK, NO XIP 

7ACK, XIP 


bits 
bits 
bits 


, 


, 


a 


0744, 
0745, 
0746, 


0747, 


0742, 
0743, 


0737, 
0750, 
0751, 


0752, 
0753, 
0754, 


0755, 


0756, 


NUMBER OF MICRO WORDS 


; BEXO8.MCR[,] 
BEX08 .MIC 


7547,4377, 7060 
7477,4377,7060 
7547,4377, 7060 


7427, 6000, 7060 


7427,0377, 6060 
7377,4377, 7020 


0007, 4377, 7160 
7517, 6360, 7060 
7527,6000,5060 


7527,0377, 6060 
7547, 4377, 7020 


0007,4377, 7160 


7527, 6360, 7060 


0007,4377, 7160 


D WORDS= 0 
U WORDS= 495 


END 


00:43 4-OCT-1983 


1063 
1064 
1065 
1066 
1067 
1068 
7; 1069 
7 1070 
7 1071 
7; 1072 
7; 1073 
71074 
7 1075 
7; 1076 
7; 1077 
7; 1078 
7 1079 
7 1080 
7 1081 
7; 1082 
7 1083 
7 1084 
7) 1085 
7; 1086 
7 1087 
7; 1088 
7 1089 
7 1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1098 
1099 
1100 


USED: 
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MBC WRITE: END CODE - ALL WRITE MODES 


MICRO 20(156) 


-TOC "MBC WRITE: END CODE - ALL WRITE MODES" 


; THESE ARE THE END ROUTINES FOR ALL OF THE WRITE MODES. 


GENERATE AN OUTPUT ONLY IF THE BYTE COUNT IS NOT COMPLETELY ZERO 


=00 
PABA.EXIT: 
J/WRT END 73 OR 4 BYTES OUT, EXIT 
J/WRT.END.O 75 BYTES OUT (EXACTLY) 
J/WRT END 73 OR 4 BYTES OUT, EXIT 
WRT .END.O: 
BZERO.DO sget 8 bits of zero 
7===== GENERATE AN OUTPUT FOR THE LAST POSSIBLE WORD 
WRT .END.2: LOADL, COND/OUTREG MT,J/WRT.END.Z 


OUTREG_ LOAD 
END_XPER, J/ IDLE 
GENERATE AN OUTPUT WITH 


WE .1B36:BZERO.D4 
BZERO.DO, LOADH 


12 LSB'S OF ZERO (1 36-BIT WORD OUT) 
7get 4 bits of zero 
sload. get 8 bits 


=0 
WE.1.2: LOADL, COND/OUTREG MT, J/WE.1.2 
OUTREG_LOAD ;LOAD WORD 2 


*;WAIT FOR OUTREG EMPTY 


WRT .END: END_XFER,J/IDLE ;RETURN TO IDLE 
y===== GENERATE AN OUTPUT WITH 4 LSB’S OF ZERO (2 36-BIT WORDS OUT) 
WE .2B36:BZERO.D4,J/WE.1.2 rget 4 bits of zero 


sthen go to common code to output the last word 


7===== THE COMMON FAIL ROUTINE 
WRITE.PAIL: END_XFER, J/IDLE 


FOR ALL WRITE MODES 
7COMMON FAIL CODE FOR LOGIC ANALYZER TRIGGER 


+ BEX08.MCR [, ] MICRO 20 (156) METS BARREL SHIFTER MICROCODE PAGE 26 
7 CROSS REFERENCE LISTING 


(U) BASH 133 # 306 307 328 329 330 331 338 341 343 344 368 
369 386 387 388 389 398 401 404 405 423 424 425 
426 435 438 441 442 451 454 456 457 458 467 468 
471 473 480 483 485 492 493 494 497 499 506 507 
510 512 519 520 521 522 525 534 535 552 553 554 
555 562 563 566 568 569 576 580 582 589 590 591 
592 595 597 604 605 623 624 642 643 645 718 719 
731 7132 753 754 755 756 761 768 769 791 792 B09 
810 811 812 817 824 825 845 846 847 848 853 861 
862 867 875 876 877 880 889 890 893 902 903 906 
908 909 917 920 922 930 933 935 936 944 947 949 
967 968 969 974 981 982 985 987 994 995 998 1000 
1007 1010 1017 1019 = 1037 1038 1055 1056 1057 
(U) BYTE SEL 131 # 262 267 304 306 307 328 329 330 331 338 341 
343 344 345 366 368 369 386 387 388 389 398 401 
404 405 406 423 424 425 426 435 438 441 442 451 
454 456 457 458 467 468 471 473 480 483 485 492 
493 494 497 499 506 507 510 512 519 520 521 522 
525 534 535 552 553 554 555 562 563 566 568 569 
576 577 580 582 589 590 591 592 595 597 604 605 
606 621 623 624 640 642 643 644 645 661 664 666 
668 670 672 674 677 679 681 683 687 688 689 718 
719 731 732 753 754 755 756 761 768 769 791 792 
809 810 811 812 817 824 825 845 846 847 848 853 
861 862 867 875 876 877 880 889 890 893 902 903 
906 908 909 917 920 922 930 933 935 936 944 947 
949 965 967 968 969 974 981 982 985 987 994 995 
998 1000 1007 1010 1017 1019 = 1037 1038 1055 1056 1057 1074 
1084 1085 1093 
(U) COND 71 4 
HDR_MODE 80 + 312 350 737 774 
JUMP_ADRS 83 # 
LAST ACK 81 ¢# 
MODE 12 ¢ 253 258 314 352 739 776 
OUTREG_MT 82 # 309 340 347 371 400 408 437 453 470 482 496 
509 524 537 565 579 594 608 626 647 690 692 722 
734 758 771 794 814 827 850 864 879 892 905 919 
932 946 951 971 984 997 1009 1021 1040 1059 1078 1087 
SRC_ACK.HDR_M 716 # 254 259 
SRC_ACK.XIP_0 717 # = 290 291 292 293 693 714 724 127 740 749 761 
764 777 784 787 802 805 817 820 830 960 963 974 
977 989 1000 1003 1012 1030 1033 1048 1051 
SRC_ACK.XIP_1 78 ¢ 284 285 286 287 302 315 324 331 334 353 361 
364 379 382 389 394 416 419 426 431 442 447 458 
463 473 476 485 488 499 502 512 515 527 530 545 
548 555 558 569 572 582 585 597 600 616 619 635 
638 838 841 853 857 867 871 882 885 895 898 909 
913 922 926 936 940 987 990 
WRT .XIP «HDR 74 # 251 252 256 257 
(U) END_XFER 114 ¢ 
F 115 # 
T 116 # 696 705 1081 1090 1098 
(U) INREG LOAD 104 # 
EF 105 # 
T 106 # 302 304 324 326 334 336 364 366 382 384 394 


; BEX08.MCR[, ] 


; CROSS REFERENCE LISTING 


(U) 


B.B09 
B.B36 
B.F16 
B.F32 
B.S16 
B09.B 
BO9B.X 
BO9B.2 
B36.B 
B36B.X 
B36B.2 
B36B1.X 
B36B1.2 
B36B2.X 
B36B2.2 
B36B3 .X 
B36B3 .2 
B36B4.X 
B36B4 .2 
B36B5.X 
B36B5.2 
B36B6.X 
B36B6.2 
B36B7.X 
B36B7.2 
B36B8 .2 
BA.PA 
BAPA.X 
BAPA1.X 
BAPA1.Z 
BAPA2 .X 
BAPA2.2 
BAPA3.X 
BAPA3.Z 
BAPA4 .X 
BAPA4 .2 
BBO9,.X 
BBO9.2 
BB36.X 
BB361.X 
BB361.2 
BB362.X 
BB3 62.2 
BB363.X 
BB3 63.2 
BB3 64 .X 
BB3 64.2 


MICRO 20(156) 


396 
490 
574 
7129 
843 
928 
1035 
67 # 
268 
264 
262 
263 
267 
279 
1048 


1059 # 


275 
838 
850 
853 
864 
867 
879 
882 
892 
895 
905 
909 
919 
922 
932 
936 
946 
951 
265 
545 
555 
565 
569 
579 
582 
594 
597 
608 
635 
647 
416 
426 
437 
442 
453 
458 
470 
473 
482 


# 


+ 


# 


+ 


# 


+ 


# 


MEIS BARREL SHIFTER MICROCODE 


940 


545 # 
548 
558 
572 
585 
600 
638 


419 
431 


447 
463 


476 


431 
515 
600 
764 
871 
963 


538 


952 


609 


433 
517 
602 
766 
873 
965 


447 
530 
619 
737 
835 
977 
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449 
532 
621 
7189 
887 
979 


463 
548 
638 
805 
898 
990 


465 
550 
640 
807 
900 
992 


476 
558 
7214 
820 
913 
1003 


478 
560 
716 
822 
915 
1005 


488 
572 
727 
841 
926 
1033 


. 


, 


; BEX08 .MCR([,] 
; CROSS REFERENCE LISTING 


BB365.X 
BB365.Z 
BB366.X 
BB3 66.2 
BB367.X 
BB3 67.2 
BB3 68 .X 
BB3 69.2 
BF16.X% 
BF16.2 
BF32.X 
BF321.X 
BF321.2 
BF322.2 
BS16.X 
BS16.2 
F16.B 
F16.8 
F16B.X 
F16B.2 
F16S.X 
F16S.2 
F32.B 
F32B.X 
F32B.2 
F32B1.X 
F32B1.2 
HR, SEL 
HR16.HDR.X 
HR16.X 
HR16.2 
HR32.HDR.X 
HR32.X 
HR321.X 
HR321.2 
HR322.2 
HW. SEL 
HW16.HDR.X 
HW16.X 
HW16.2 
HW161.X 
HW161.2 
HW32.HDR.X 
HW32.X 
HW32.2 
HW321.X 
HW321.2 
IDLE 
MR.X 
MW.X 
PA.BA 
PABA.EXIT 
PABA.X 
PABA.Z 
PABA1.X 


MICRO 20(156) 


= 


Bad 


487 
496 
501 
509 
514 
524 
529 
537 
363 
371 
381 
393 
400 
408 
618 
626 
784 


1030 # 


786 
794 


1032 # 


1040 
802 
804 
814 
819 
827 
284 
314 
286 
309 
352 
287 
333 
340 
347 
290 
739 
292 
721 
7126 
734 
176 
293 
758 
763 
771 
251 
262 
273 
281 


1069 # 


962 
971 
976 


# 
# 


# 


# 
# 


# 
# 


+ 
# 
# 
# 
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795 
1041 
787 


1033 


805 


820 


301 


323 
334 


713 


727 


748 
764 
252 
314 
7139 
960 
963 


977 


830 


302 


324 


714 


749 


256 
352 
776 
1022 


315 


353 


740 


777 


257 
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705 


1081 


1090 


1098 


; BEX08.MCR[, } 


; CROSS REFERENCE LISTING 


(U) 


(U) 


(U) 


(U) 


PABA1 .2 
PABA2 .X 
PABA2 .Z 
PABA3 .X 
PABA3 .2 
PABA4 .X 
PABA4.Y 
PABA4 .Z 
READ .PAIL 


RX 
RX. 
RX. 
RX. 
RX. 
RX. 
RXOH 

RXOL 

RX1H 

RX2H 

RX2L 

RX4H 

RX4L 

RX5H 

RX6H 

RX6L 

RX6X 
WE.1.2 

WE .1B36 

WE .2B36 
WRITE ,.FAIL 


xtrriowd 


WRT .END 


WRT .END .O 
WRT .END .Z 
LOADH 


LOADL 


LOADX 


MACRO% 
BOO .DO 
BO1.D0 
BO1.D6 
B02 .D6 
BO3 .D0 
B03 .D6 
BO3.D7 


MICRO 20(156) 


984 + 


987 


997 + 


1000 


1009 # 
1014 # 


1015 


1021 # 


303 
503 
687 
693 
664 
677 
690 
661 
529 
475 
599 
514 
462 
501 
446 
584 
487 
333 
301 


1087 # 


870 
925 
715 
914 
713 
1002 
897 


1078 # 


123 
493 
719 
895 
1057 
120 
509 
7158 
932 
126 
499 


198 
199 
200 
201 
202 
203 
204 


# 


+ 


mee te Se te OE OEE 


984 
989 + 
997 
1002 # 
1009 


1017 # 
1021 
325 
516 
697 
696 # 
666 
679 
692 # 
688 # 
664 # 
571 
666 
668 
679 
670 
557 
672 
674 
393 
323 
1087 
1084 # 
1093 # 
728 
927 
126 
1014 
912 
1078 
307 
507 
132 
909 
1085 
309 
524 
771 
946 
306 
512 


ae te 


597 
458 
525 
595 
344 
457 
592 


MEIS BARREL SHIFTER MICROCODE 


990 


1003 


335 
531 
700 


668 
681 
692 


677 


681 


430 
363 
1093 


750 
941 
748 
1016 
939 


331 
521 
755 
922 


340 
537 
794 
951 
329 
527 


512 


405 
510 


365 
549 


670 
683 


683 # 
381 


765 
964 
763 
1032 
1071 


344 
935 
769 
936 


347 
565 
814 
971 
343 
553 


442 
522 


383 
559 


672 
690 # 


418 


788 
978 
786 
1050 
1073 # 


369 
555 
792 
949 


371 
579 
827 
984 
368 
568 


499 


395 
573 


674 


555 
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420 
586 


689 # 


618 


821 
1004 
819 
1072 


405 
576 
825 
982 


408 
608 
864 
1009 
404 
597 


432 
601 


637 


842 
1034 
840 
1090 # 


426 
590 
847 
989 


437 
626 
879 
1021 
424 
623 


448 464 477 

620 639 699 

661 # 

858 872 886 

1052 1098 # 

856 884 962 

442 458 475 

605 624 645 

862 870 876 

994 1000 1017 
453 470 482 

647 690 721 

892 905 919 

1040 1059 1078 
441 456 473 

643 688 


489 
705 # 


899 


976 


480 
689 
890 
1038 


496 
734 
925 
1087 
485 


’ 


, 


; BEXO8.MCR[,] 
; CROSS REFERENCE LISTING 


B04 .DO 
BOS .DO 
B05 .D6 
B06 .DO 


B06 
B06 
B06 
B06 
BO? 
BO? 


D1 
«D4 
D5 
.D6 
DO 
D6 


B08 .DO 
B09 .DO 
BO9.D6 
B10 .D6 
B11 .D0 
B11.D6 
B11 .D7 
B12 .D0 
B13 .D0 
B13 .D6 
B14.D0 
B14.D1 
B14 .D4 
B14.D5 
B14 .D6 
B15.D0 
B15 .D2 
B15.D4 
B15 .D6 
B15 .D7 
Bx00 .DO 
Bx00,D1 
BxX00.D4 
Bx01.D0 
Bx02.D0 
Bx04,D0 
BxX06.D5 
Bx06.D6 
Bx06.D7 
Bx07,D1 
Bx08 DO 
Bx08.D4 
BX10.D0 
BxX10.D6 
BxX12.D0 
BX14.D1 
BX14.D2 
BX14.D6 
BxX16,D0 
BX18 .D2 
BX18.D5 
BX18 .D6 
BxX20.D0 
BX21.D1 
Bx24,D0 


MICRO 20(156) 


205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 
223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 
174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 


RHe eee EEO EOE tHE eH HEHEHE HO EH 


582 
331 
497 
605 
569 
591 
554 
580 
307 
330 
568 
456 
471 
566 
343 
454 
563 
553 
329 
341 
576 
604 
562 
589 
552 
306 
467 
451 
328 
642 
753 
967 
875 
1055 
718 
876 
1056 
7154 
968 
969 
755 


719 
877 
880 
974 


7136 
761 
768 
981 
889 
890 
982 
7169 


MEIS BARREL SHIFTER MICROCODE 


389 


369 
388 


521 


404 
468 


387 
401 
643 


368 
519 
506 
338 


809 
994 
930 


731 
933 


810 
995 
998 
811 


132 
935 
936 
1000 


812 
817 
824 
1007 
944 
947 
1010 
825 


426 


473 
425 


441 


520 


424 
438 


480 


386 


845 


791 


846 


847 


792 


848 
853 
861 


862 


535 
483 


507 


493 


534 


398 


902 


1038 


903 


906 


1037 


908 
909 
917 


920 


PAGE 30 
623 645 
494 
590 
624 
423 435 492 
1057 


’ 


; CROSS REFERENCE LISTING 


’ 


BEX08 .MCR[, ] 


BX28 .DO 
BX28.D1 
BX32.D0 
BX32.D5 
BZERO.DO 
BZERO.D1 
BZERO.D2 
BZERO.D4 
BZERO.D5 
BZERO.D6 
BZERO,D7 
END_XFER 
INREG_LOAD 


LOADH 


LOADIL 


LOADX 


OUTREG_LOAD 


SAVEO 


SAVE1 
SAVE2 
SAVE3 
SAVE4 


SAVES 
SAVE6 


SAVE7 
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188 
189 
190 
191 
239 
240 
241 
242 
243 
244 
245 
117 
107 
396 
490 
574 
7129 
843 
928 
1035 
124 
493 
719 
895 
1057 
121 
509 
758 
932 
127 
499 
112 
510 
735 
933 
138 
405 
507 
605 
732 
847 
922 
139 
1010 
140 
141 
142 
1093 
143 
144 
401 
497 
674 
908 
145 


Se SE OE OOH HEHEHE HEC 


# 


+ 


+ 


# 
# 
+ 


+ 
# 


893 
985 
867 
987 
664 
666 
668 
345 
672 
262 
577 
696 
302 
419 
502 
585 
7149 
857 
940 
1051 
307 
507 
7132 
909 
1085 
309 
524 
771 
946 
306 
512 
310 
525 
759 
947 
306 
424 
512 
623 
753 
853 
933 
569 
1017 
467 


345 


554 
262 
423 
510 
683 
935 
563 


MEIS BARREL 


949 
1017 
922 
1019 
677 


679 
406 


267 
606 
705 
304 
421 
504 
587 
751 
859 
942 
1053 
331 
521 
755 
922 


340 
537 
794 
951 
329 
527 
341 
538 
772 
952 
307 
426 
521 
624 
755 
862 
936 
604 


519 


406 


589 
267 
425 
520 
687 
944 
$77 


688 


670 


304 
644 
1081 
324 
431 
515 
600 
7164 
871 
963 


344 
535 
769 
936 


347 
565 
814 
971 
343 
553 
348 
566 
795 
972 
329 
441 
534 
643 
761 
867 
947 
666 


668 
451 
672 
304 
435 
522 
754 


592 


689 


681 


366 


1090 
326 
433 
$17 
602 
766 
873 
965 


369 
555 
192 
949 


371 
579 
827 
984 
368 
568 
372 
580 
815 
985 
331 
442 
535 
645 
7169 
876 
949 
967 


679 
506 
981 
328 
438 
525 
156 


606 


SHIFTER MICROCODE 


965 


1084 


621 


1098 
334 
447 
530 
619 
787 
885 
977 


389 
571 
811 
969 


400 
594 
850 
997 
387 
582 
401 
595 
828 
998 
343 
456 
553 
664 
792 
880 
965 
969 


768 
562 
987 
330 
454 
552 
810 


642 
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1074 


1093 


640 


336 
449 
532 
621 
789 
887 
979 


405 
576 
825 
982 


408 
608 
864 
1009 
404 
597 
409 
609 
851 
1010 
344 
458 
555 
677 
7192 
890 
1037 
974 


824 
591 
1007 
338 
457 
566 
812 


644 


1085 


661 


364 
463 
548 
638 
805 
898 
990 


426 
590 
847 
989 


437 
626 
879 
1021 
424 
623 
438 
627 
865 
1022 
368 
473 
568 
688 
809 
893 
1038 
982 


861 
670 
1019 
341 
468 
580 
846 


968 


674 


366 
465 
550 
640 
807 
900 
992 


442 
605 
862 
994 


453 
647 
892 
1040 
441 
643 
454 
648 
880 
1041 
369 
480 
576 
689 
811 
902 
1055 
985 


917 
681 
1056 
366 
471 
595 
848 


995 


683 


382 
476 
558 
714 
820 
913 
1003 


458 
624 
870 
1000 


470 
690 
905 
1059 
456 
688 
471 
697 
893 
1060 
387 
485 
582 
718 
817 
906 
1057 
994 


875 


386 
483 
621 
877 


687 


384 
478 
560 
716 
822 
915 
1005 


475 
645 
876 
1017 


482 
7221 
919 
1078 
473 


483 
700 
906 
1079 
389 
493 
590 
719 
825 
909 
1074 
998 


930 


388 
492 
640 
889 


394 
488 
572 
727 
841 
926 
1033 


480 
689 
890 
1038 


496 
734 
925 
1087 
485 


497 
722 
920 
1088 
404 
499 
597 
731 
845 
920 
1085 
1000 


1084 


398 
494 
661 
903 


? BEXO8.MCR[, ] MICRO 20(156) METS BARREL SHIFTER MICROCODE PAGE 32 
7 CROSS REFERENCE LISTING 


(U) OUTREG LOAD 109 # 
F 110 # 

T 111 # 310 341 348 372 401 409 438 454 471 483 497 
510 525 538 566 580 595 609 627 648 697 700 722 

735 159 772 795 815 828 851 865 880 893 906 920 
933 947 952 972 985 998 1010 1022 1041 1060 1079 1088 

(U) SAVE 137 # 262 267 304 306 307 328 329 330 331 338 341 
343 344 345 366 368 369 386 387 388 389 398 401 

404 405 406 423 424 425 426 435 438 441 442 451 

454 456 457 458 467 468 471 473 480 483 485 492 

493 494 497 499 506 507 510 512 $19 520 521 522 

525 534 535 552 553 554 555 562 563 566 568 569 

576 577 580 582 589 530 591 592 595 597 604 605 

606 621 623 624 640 642 643 644 645 661 664 666 

668 670 672 674 677 679 681 683 687 688 689 718 

719 731 132 153 754 755 756 761 768 7169 791 792 

809 810 811 812 817 824 825 845 846 847 848 853 

861 862 867 875 876 877 880 889 890 893 902 903 

906 908 909 917 920 922 930 933 935 936 944 947 

949 965 967 968 969 974 981 982 985 987 994 995 

998 1000 1007 1010 1017 1019 1037 1038 1055 1056 1057 1074 


1084 1085 1093 


BEX08 .MCR [,] 
LOCATION / LINE NUMBER INDEX 


DCODE LOC’N 0 1 


0000 


MICRO 20 (156) 


2 3 


METS BARREL SHIFTER MICROCODE 


PAGE 33 


7r ote FF 


BEX08 .MCR[, ] 


LOCATION / LINE NUMBER INDEX 


UCODE LOC’'N 


0000 
0010 
0020 
0030 
0040 
0050 
0060 
0070 


0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 


0200 
0210 
0220 
0230 
0240 
0250 
0260 
0270 


0300 
0310 
0320 
0330 
0340 
0350 
0360 
0370 


0400 
0410 
0420 
0430 
0440 
0450 
0460 
0470 


0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 


0 


251 
262 
273 
284 
301 
312 
329 
340 


352 
369 
386 
398 
416 
426 
441 
453 


467 
475 
487 
501 
514 
524 
535 
552 


562 
571 
584 
594 
606 
623 
637 
664 


681 
696 
713 
7126 
7139 
7156 
768 
786 


802 
812 
824 
840 
853 
864 
877 
889 


1 


MICRO 20(156) 


METIS BARREL SHIFTER MICROCODE 


*; BEX08.MCR[,] MICRO 20(156) METS BARREL SHIFTER MICROCODE PAGE 35 
7; LOCATION / LINE NUMBER INDEX 


7 UCODE LOC’N 0 1 2 3 4 5 6 7 

1 0600 897 898 899 900 905 906 909 917 
i 0610 912 913 914 915 919 920 922 930 
1 0620 925 926 927 928 932 933 935 936 
u 0630 939 940 941 942 944 949 946 947 
1 0640 951 952 960 967 962 963 964 965 
u 0650 968 969 971 972 974 981 982 987 
u 0660 976 977 978 979 984 985 994 995 
u 0670 989 990 991 992 997 998 1000 1007 
1 0700 1002 1003 1004 1005 1009 1010 1012 1019 
uu 0710 1014 1015 1016 1017 1021 1022 1030 1037 
u 0720 1032 1033 1034 1035 1038 1048 1040 1041 
u_ 0730 1050 1051 1052 1053 1055 1056 1057 1081 
u 0740 1059 1060 1078 1079 1070 1071 1072 1074 
u 0750 1084 1085 1087 1088 1090 1093 1098 


no errors detected 
END OF MICRO CODE ASSEMBLY 
used 4.69 seconds 


VEX02 .MCR [, J MICRO 20 (156) 
TABLE OF CONTENTS 


41 
345 
440 
647 
1313 


FIELD DEFINITIONS 
INITIALIZATION AND IDLE LOOP 
IDLE ROUTINE 

VECTOR REQUESTS 

REGISTER CONTROL BOARD REQUESTS 
cross reference index 

dcode location / line # index 
ucode location / line # index 


MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 1 


; VEX02.MCR[,] MICRO 20(156) METS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 2 
* VEX02 MIC 22:33 20-FEB-1985 FIELD DEFINITIONS 


+<MEIS.VEX>VEX02.MIC.2, 20-Feb-85 22:32:03, Edit by LOUGHEED 

; In End Massbus Read (R12) do a CLEAR_XIPR in case we received 

: a shutdown request before RX to Mport (V16) completed. 
3<MEIS.VEX>VEX01.MIC.94, 17-Jul-84 17:05:56, Edit by LOUGHEED 

7Move first instruction of the IDLE routine into the vector dispatch table 
;RX packet flush exits early if there is no packet to flush 
+<MEIS.VEX>VEX01.MIC.93, 17-Jul-84 16:28:36, Edit by LOUGHEED 

sEnd Massbus Read is now the same as RX packet flush. This causes Massbus 
; reads that do not read the entire packet to leave the pointers in a good 
; state. Eliminates spurious runt and giant packets. 
3;<MEIS.VEX>VEX01.MIC.92, 17-Jul-84 15:47:12, Edit by LOUGHEED 


PrPW OAIDU PWN PE 
ro 


12 7Move a SET _STATUS,RX_PKT_ AVAIL from V13WRD to V1I3WRE so we don’t get a 
13 : spurious packet available in case we decide to abort at V13WRE+1. 

14 7; <MEIS.VEX>VEX01.MIC.91, 12-May-84 18:17:22, Edit by LOUGHEED 

15 ;First production version of Via Board ucode - VEX01 


“se Se Me se ta Ne Me 


a 
oO 


7; VEX02.MCR[, ] MICRO 20(156) MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 3 

+ VEX02.MIC 22:33 20~-FPEB-1985 FIELD DEFINITIONS 
; 18 -TITLE “MEIS 10MB ETHERNET DATA UCODE - GFS/KSL" 
y, 19 
7 20 ;"This time for sure!" 
22) 
7 22 ;Write PROM files using WVEX1.SAI. 
7; 23 
7 24 ; MONUMENT: Data alignment within 36-bit words. 
7,25 ; 
7 26 . There are 14 bytes of header encapsulation for the 10MB Ethernet. 
2) 7; This comes to 3.5 36-bit words. To force an extra half-word of padding 
7 28 7 so that a datagram’s beady starts on a 36-bit word boundary, we must do the 
7 29 + following things. 
+ 30 7 On a write we assume that the user has supplied the half-word of 
; 31 + padding. We read it into our buffer, but when it comes to sending data to 
7 32 7 the NI, we do NOT send that first 16-bit word. This amounts to incrementing 
, 33 7; TWCUR an extra time in the IDLE loop startup code. 
7 34 ; On a read from the NI, we take everything. When the user starts 
7235 ; reading (Massbus or sniffing) we insert an extra 16 bits. This is done by 
7 36 7 an extra MPORT_LOAD in the Start Massbus Read code. ‘The Packet Status Read 
7 30 + code addes an extra 2 bytes to the count it returns (diagnostic writers 
7; 38 ; beware of that fact!). 
, 39 


7 40 


; VEX02 MIC 


’ 


VEX02.MCR[, ] 


MICRO 20(156) 


22:33 20-FEB-1985 


41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 
54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
710 


MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 4 
FIELD DEFINITIONS 


.TOC "Field Definitions" 


?The Jump field is 9 bits (512 words) 
J/=0,9,8,+ 


7Condition code selection (actual values not yet defined) 
7 Conditions are active high (H) unless otherwise marked by a (L). 


7; ~=Dotted symbols are for two bit selection conditions. 


COND/=10,5,13,D 


ZERO =00 sLast ALU result was zero 

NEG =01 ;Last ALU result was negative 

RX_ENABLE OUT.IN =02 rRequest to toggle NI board reception 

DBUS LSB =03 ;State of LSB of data bus . 
RUNNING ..ATN_L =04 *Product of TX_REQ ENABLE (H), NI_INTERRUPT (L) 
ZERO.FLUSH =05 7Product of ZERO (H) and discard pkt logic (H) 


TX AVAIL _L.MBUS VALID =06 ;TX buffer available (L) and low byte is 
sis valid from mport read (H). A crock 
;because we ran out of LSB’s for the COND. 
7The two signals are unrelated. 


RX_EOF. LBYTE =07 *Product of RX_EOF (L) and Low Byte Valid (L) 
JUMP_ADDRS =10 ;Default field select 
RCON_REQ =20 ;Branch on RCON request 
VECTOR_REQ =30 7Branch on vector request 
JUMP_VECTOR "“J/VECTOR, COND/VECTOR_REQ" 


7 VEXO2 .MCR[, ] MICRO 20 (156) MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 5 


3 VEX02 .MIC 22:33 20-FEB-1985 FIELD DEFINITIONS 
, 71 
3.72 7Register allocation in 2901 ALU, A input 
7; 73 
7 74 ALUA/=17,4,31,D 
3 75 TWBASE =00 stransmit withdrawl edge 
7; 76 TDBASE =01 stransmit deposit base 
ae TWCUR =02 jtransmit withdrawl word 
7; 78 TDCUR =03 stransmit deposit word 
7; 79 TWTOP =04 stransmit withdrawl top 
7; 80 TWRAP =05 ;transmit wrap address 
7 81 TBLEFT =06 yavailable bytes left in transmit buffer 
7 82 
7 83 RWBASE =07 sreceiver withdrawl edge 
7 84 RDBASE =10 ;receiver deposit base 
7 85 RWCUR =11 ;receiver withdrawl word 
7 86 RDCUR =12 sreceiver deposit word 
7 87 RWTOP =13 ;receiver withdrawl top 
7; 88 SNIFF =13 7For "sniffing" data to and from the buffer 
7; 89 ADDRM =13 7For setting our Ethernet address 
7 90 RWRAP =14 sreceiver wrap address 
7 91 RDLIMIT =15 sreceiver deposit limit 
7 92 
5.93 MSIZE =16 rbytes in a maximum sized packet 
7 94 TEMP =17 ;temporary register 


95 


7; VEXO2.MCR[,] MICRO 20(156) 


; VEX02 .MIC 22:33 20-FEB-1985 


se Me te Se te te Me 


Se Se Ne te Se te ote 


se Se te Me 


Se en eT es eT) 


96 

97 

98 

99 

100 
101 
102 
103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
117 
118 
119 
120 
121 


MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 6 
FIELD DEFINITIONS 


;Register allocation in 2901 ALU, B input 


ALUB/=17, 4, 27,D 


TWBASE 
TDBASE 
TWCUR 
TDCUR 
TWTOP 
TWRAP 
TBLEFT 


RWBASE 
RDBASE 
RWCUR 
RDCUR 
RWTOP 
SNIFF 
ADDRM 
RWRAP 
RDLIMIT 


MSIZE 
TEMP 


=00 
=01 
=02 
=03 
=04 
=05 
=06 


=07 
=10 
=11 
=12 
=13 
=13 
=13 
=14 
=15 


=16 
=17 


ytransmit withdrawl edge 

stransmit deposit base 

;transmit withdrawl word 

stransmit deposit word 

jtransmit withdrawl top 

;transmit wrap address 

yavailable bytes left in transmit buffer 


;receiver withdrawl edge 

sreceiver deposit base 

;receiver withdrawl word 

;receiver deposit word 

;receiver withdrawl top 

7For "sniffing" data to and from the buffer 
;For setting our Ethernet address 

yreceiver wrap address 

;receiver deposit limit 


sbytes in a maximum sized packet 
;temporary register 


>; VEX02.MCR[,] 


7 VEX02.MIC 22:33 20-FEB-1985 


we Ns ote ote 


ss ots ose 


iT Te eT eT eT | 


eT i TT i TT he Th eT eh | 
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122 
123 
124 
125 
126 
127 
128 
129 
130 
131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 
154 
155 
156 
157 
158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 
171 
172 
173 


MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 7 
FIELD DEPINITIONS 


7 2901 function field. 


ALUFN/=47,6,23,D 


addAQ 
addAB 
add2Q 
add2B 
addZA 
addDA 


subQA 
subBA 
subZB 
subZA 
subAQ 
subAB 
subZQ 
subAZ 
subDA 


NOY WHO 


NAandQ 
NAandB 


=00 
=01 
=02 
=03 
=04 
=05 


=10 
=11 
=13 
=14 
=20 
=21 
=22 
=24 
=25 


=32 
=33 
=34 
=37 
=47 


=50 
=51 


72901 destination field 


ALUDEST/=1,3,17,D 


Q 

NOP 
BRAMA 
BRAM 
BQDOWN 
BDOWN 
BQUP 
BUP 


=0 
=1 
=2 
=3 
=4 
=5 
=6 
=7 


72901 ALU control 


CARRY/=0,1,14,D 


CRY_0 
CRY_1 


F=1 
T=0 


"“CARRY/T" 
"CARRY/F" 


See 2901 documentation 


St es ed at Bs et Bt eT 


NOUYPWYD 


;(NOT A) AND Q 
7(NOT A) AND B 


7Shift register 


7Do nothing 


;Register addressed by B gets values, A to bus 
;Register addressed by B and data bus get value 
result to B and Q 

result to B 

;Left shifted result to B and Q 

;Left shifted result to B 


;Right shifted 
?Right shifted 


for the rest of the opcodes. 


CRY_1 
At+Q+1 
A+B+1 
Qt1 
B+1 
A+1 
D+A+1 


| 
> > 


rHandling of carry bit 


VEX02 .MCR[, ] MICRO 20(156) 


> VEXO2 MIC 22:33 20-FEB-1985 


sete Ne te 


St ad Ba ad at at al Sa My OT eT es rT TT eh eT ed 


174 
175 
176 
177 
178 
179 
180 
181 
182 
183 
184 
185 
186 
187 
188 
189 
190 
191 
192 
193 
194 
195 
196 
197 
198 
199 
200 
201 
202 
203 
204 
205 
206 
207 
208 
209 
210 
211 
212 
213 
214 
215 
216 
217 
218 
219 
220 
221 
222 


MEIS 10MB ETHERNET DATA 
FIELD DEFINITIONS 


;Status control lines. 


TX_ACQ_ERR/=1,1,48,D 
F=1 
T=0 
TX_ACQ_ERR 


RX_OVERFLOW/=1,1,49,D 
F=1 
T=0 
RX_OVERF LOW 


TX_BUFR_AVAIL L/=1,1,50, 
P=1 
T=0 
TX_BUFR_AVAIL_L 


RX_PKT_AVAIL/=1,1,51,D 
F=1 
T=0 
RX_PKT_AVAIL 


LBYTE_VALID/=1,1,52,D 
F=1 
T=0 

LBYTE VALID 


TX_EOF/=1,1,53,D 
F=1 
T=0 
TX_EOF 


TX_REQ_ENABLE/=1,1,54,D 
Fel 
T=0 
TX_REQ_ENABLE 


RX_ENABLE/=1,1,55,D 
F=1 
T=0 
RX_ENABLE 


STATUS/=0,1,56,D 
F=0 
T=1 
CLEAR_STATUS 
SET_STATUS 


UCODE - GFS/KSL PAGE 8 


All are active high except for TX_BUFR_AVAIL_L. 


vError while acquiring transmit buffer 


“TX _ACQ ERR/T" 


;Receiver overflow 


“RX_OVERFLOW/T" 


D ;Transmit buffer available 


"TX BUFR_AVAIL_L/T" 


;Packet available in receiver buffer 


"RX_PKT_AVAIL/T" 


;Low byte of last word is valid 


“LBYTE_VALID/T" 


7End of frame being transmitted 


“TX_EOE/T* 


7NI is asking for data 


“TX REQ ENABLE/T* 


7Reception enable 


“RX_ENABLE/T" 


7Set/clear specified status bits 


“STATUS/E" 
“STATUS/T" 


(set for 


NT) 


VEX02.MCR[, ] MICRO 20(156) 


VEX02 .MIC 22:33 20-FEB-1985 


ey iT tt eS al 


ST eT ee ey 


it i eT | 


Oe eT es hs eh) eT 


223 
224 
225 
226 
227 
228 
229 
230 
231 
232 
233 
234 
235 
236 
237 
238 
239 
240 
241 
242 
243 
244 
245 
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248 
249 
250 
251 
252 
253 
254 
255 
256 
257 
258 
259 
260 
261 
262 
263 
264 
265 
266 
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FIELD DEFINITIONS 


;Data bus read/load control 


DALU_READ/=1, 1, 32,D ;Load results of ALU computation 
F=1 
T=0 

DALU_READ “DALU_READ/T" 

DEBUG "“DALU_READ/T" 

SLIDE_READ/=1,1,33,D ;Read slave ID register 
F=1 
T=0 

SLIDE_READ “SLIDE READ/T" 

BUFR_READ/=1,1,34,D ;Read RAM addressed by Dbus 
F=1 
T=0 

BUFR_READ "BUPR_READ/T" 

BUFR_LOAD/=1,1,35,D ;Write RAM addressed by Dbus 
F=1 
T=0 

BUFR_LOAD “BUFR_LOAD/T" 


XPORT_READ/=1,1,36,D 
F=1 
T=0 
XPORT_READ "XPORT_READ/T" 


7Read port to register board 


XPORT_LOAD/=1,1,37,D ;Write port to register board 
F=1 
T=0 


XPORT_LOAD “XPORT_LOAD/T" 


MPORT_READ/=1,1,38,D 
F=1 
T=0 
MPORT_READ "MPORT_READ/T" 


7;Read port to barrel board 


MPORT_LOAD/=1,1,39,D 
F=1 
T=0 
MPORT_LOAD "“MPORT_LOAD/T" 


;Write port to barrel board 


onto 


data bus 


; VEX02.MCR[,} MICRO 20(156) 


* VEX02.MIC 22:33 20-FEB-1985 


i i eT eT eS SS a oo a oa 


ee ee ee ee 


267 
268 
269 
270 
271 
272 
273 
274 
275 
276 
277 
278 
279 
280 
281 
282 
283 
284 
285 
286 
287 
288 
289 
290 
291 
292 
293 
294 
295 
296 
297 
298 
299 
300 
301 
302 
303 
304 
305 
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 


METS 10MB ETHERNET DATA UCOD 
FIELD DEFINITIONS 


#NI read/load control fields 
NI_BADRS RST/=1,1,40,D 


F=1 
T=0 


E - GFS/KSL PAGE 10 


7Reset Bad Address flag in NI 


NI_BADRS RST "NI_BADRS RST/T" 


NI_MASK_ADRS LOAD/=1,1, 41,D 
F=1 
T=0 


;Load address for NI Mask read or write 


NI_MASK_ADRS LOAD *NI_MASK_ADRS_LOAD/T* 


NI_MASK DATA _READ/=1,1, 42,D 
F=1 
T=0 


7;Read data in address mask of NI 


NI_MASK_DATA_READ “NI MASK DATA_READ/T" 


NI_MASK_DATA_LOAD/=1,1, 43,D 
P=1 
T=0 


;Write data in address mask of NI 


NI_MASK_DATA_LOAD “NI_MASK_DATA_LOAD/T" 


NI_DATA_READ/=1,1,44,D 
F=1 
T=0 


7;Read word of data from NI 


NI_DATA_READ “NI_DATA_READ/T" 


NI_DATA_LOAD/=1,1,45,D 
P=1 
T=0 


;Write word of data to NI 


NI_DATA_LOAD "“NI_DATA_LOAD/T® 


NI_COMMAND_READ/=1,1,46,D 
Pel 
T=0 


7Read status from NI 


NI_COMMAND_READ “NI_command_read/T" 


NI_COMMAND_LOAD/=1,1,47,D 
F=1 
T=0 


7Send command to NI 


NI_COMMAND_ LOAD “NI_COMMAND LOAD/T" 


CLEAR_XIPR/=0,1,60,D 
F=0 
T=1 
CLEAR_XIPR "CLE 


;Clear transfer in progress 


AR_XIPR/T" 


’ 


, 


VEX02 .MCR [, ] 
VEX02 .MIC 


MICRO 20(156) 


22:33 20-FEB-1985 


316 
317 
318 
319 
320 
321 
322 
323 
324 
325 
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335 
336 
337 
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343 
344 
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FIELD DEFINITIONS 


;NI register read/write control 


NI_REG_ SEL/=7,3,63,D 


RX_REG =06 
TX REG =07 


NI_RX STATUS READ 
NI_TX_STATUS READ 
NI_RX_COMMAND LOAD 


NI_TX_COMMAND_LOAD 


"NI _REG_SEL/RX_REG,NI_COMMAND READ" 


"NI REG SEL/TX_REG,NI_ COMMAND READ" 


"NI_REG SEL/RX_REG, NI_COMMAND_ LOAD" 


"NI REG SEL/TX_REG, NI_COMMAND LOAD" 


;Magic numbers for PROM patching. 


: Bit Range 
; 00-07 
? 08-15 
; 16-23 
: 24-31 
? 32-39 
; 40-47 
A 48-55 
; 56-63 


VEX prom 


YRDUP WHE CO 


. 


0001, 
0002, 
0003, 


0004, 


0005, 
0006, 
0007, 
0010, 
0011, 


0012, 


> VEX02.MCR[,] 
; VEX02.MIC 22:33 20-FEB-1985 
0000, 0012,0147,7777, 7577, 0000, 3400 


0022, 0347,0367, 7777, 7760, 3400 
0032,0347,0767, 7777, 7760, 3400 
0042,0347,1367, 7777, 7760, 3400 


0052,1304,1447, 7777, 7760, 3400 


0062,0534, 6067, 7777, 7760, 3400 
0072,0534, 6307, 7777,7760, 3400 
0102, 0534, 6307, 7777, 7760, 3400 
0112,0534, 2707, 7777, 7760, 3400 
0122, 0534, 7127, 7777, 7760, 3400 


0132, 0534, 7347, 7777, 7760, 3400 


a 


Sal a ed i a! ET TS 


we Ne Se te te te 


we “6 we wes te te we te Ne 
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345 
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367 
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369 
370 
371 
372 
373 
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379 
380 
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-TOC "Initialization and Idle Loop" 


*INIT - Set initial values 


Boe na we ee 
, 


7First initialize the Registers. 


TWRAP 
TWBASE 
TDBASE 
TDCUR 
TWCUR 
MST2E 
TBLEFT 


RWRAP 
RWBASE 
RDBASE 
RDCUR 
RWCUR 


10000 

0 

0 

1 

0 

2000 
TWRAP-MSYZE-1 


20000 
TWRAP 
TWRAP 
TWRAP+1 
TWRAP +1 


RDLIMIT RWRAP~1 


We need to have: 


7Wrap point of TX buffer 

7TX withdraw base 

7TX deposit base 

7TX deposit current 

7TX withdraw current 

*Max. size of a packet (2048.) 
?Bytes left in TX buffer 


?Wrap point of RX buffer 
7RX withdraw base 

7RX deposit base 

*RX deposit current 

7RX withdraw current 

7RX deposit limit 


he registers RWTOP, TEMP, and TWTOP do not need initial values. 
TWRAP = length of RX buffer. 


NI_BADRS_RST,CLEAR_STATUS, TX_REQ_ ENABLE, TX_EOF,RX_PKT AVAIL, 
TX_BUFR_AVAIL_L,RX_OVERFLOW, TX_ACQ_ERR, LBYTE_VALID, RX_ENABLE 


DEBUG, ALUA/TEMP , ALUB/TWBASE, ALUFN/Z, ALUDEST/BRAM 


DEBUG, ALUA/TEMP, ALUB/TDBASE, ALUFN/Z, ALUDEST/BRAM 


DEBUG, ALUA/TEMP, ALUB/TWCUR, ALUFN/Z, ALUDEST/BRAM 


DEBUG, ALUA/TWCUR, ALUB/TDCUR, ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 


setting up the wrap registers. We do RWRAP, TWRAP, then MSIZE. 


by rotating a 1 into the MSB of RWRAP to get 100,000 
DEBUG, ALUA/TDCUR, ALUB/RWRAP ,, ALUFN/A, ALUDEST/BDOWN 


DEBUG, ALUA/RWRAP, ALUB/RWRAP , ALUFN/A, ALUDEST/BDOWN 


the final value of RWRAP 


DEBUG, ALUA/RWRAP, ALUB/RWRAP , ALUFN/A, ALUDEST/BDOWN 
down to get 10,000, the final value of TWRAP 
DEBUG, ALUA/RWRAP, ALUB/TWRAP, ALUFN/A, ALUDEST/BDOWN 


DEBUG, ALUA/TWRAP, ALUB/MSIZE, ALUFN/A, ALUDEST/BDOWN 


T 

Note wells: 

INIT: 

;Now do the easy registers 
;TWBASE := 0 

;TDBASE := 0 

7TWCUR s= 0 

7TDCUR := 1 

;Begin 

pStart 

7Shift down to get 40,000. 
*Shift down to get 20,000, 
7Shift 

7Shift down to get 4,000 
7Shift 


down to get 2,000, the final value of MSIZE (= 2048. bytes) 
DEBUG, ALUA/MSIZE, ALUB/MSIZE, ALUFN/A, ALUDEST/BDOWN 


This assumption is used in V13. 


» VEX02.MCR[, ] 
VEX02.MIC 


0013, 
0014, 


0015, 


0016, 


0017, 


0020, 


0021, 
0022, 
0023, 
0024, 
0025, 
0026, 
0027, 


0030, 


22:33 20-FEB-1985 


0142,0734, 7467, 7777, 7760, 3400 
0152,0734,7767, 7777, 7760, 3400 


0162,0101,1767, 7776, 7760, 3400 


0172,0147,7767, 7776, 7760,3000 


0202,0147,7777, 7567, 7720, 3400 


0212,0147,7777, 7775, 7760, 3400 


0222, 0334,3527, 7777, 7760, 3400 
0232,0334,4127, 7777, 7760, 3400 
0242,1304, 4527, 7777, 7760, 3400 
0252,1304,5127, 7777, 7760, 3400 
0262,0314,6707, 7777, 7760, 3400 
0272,0021, 7127, 7777, 7760, 3400 
0302, 0332,3367, 7777, 7760, 3400 


3406,0147, 7777, 7777, 7760, 3400 


ST ee ee ee i nh TT) 


se ote fe 
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?We interested in receiving interrupts on TX underflow and TX timeout. 

; Must write a 5 to the NI TX command register. Shift a 1 twice to get a 4. 
DEBUG, ALUA/TDCUR, ALUB/TEMP, ALUFN/A, ALUDEST/BUP 
DEBUG, ALUA/ TEMP, ALUB/ TEMP, ALUFN/A, ALUDEST/BUP 


;Add 1 and 4 to get 5, write to NI TX command register 
DALU_READ,NI_TX_COMMAND_LOAD, ALUA/TEMP, ALUB/TDCUR, ALUFN/ADDAB, 
ALUDEST/NOP 


7Disable the NI receiver by writing a zero to the NI RX command register 
DALU_READ,NI_RX_COMMAND_ LOAD, ALUA/TEMP, ALUB/TEMP, ALUFN/2Z, ALUDEST/NOP 


7Do an NI read to make sure we don’t get a garbage word after a MEIS reset. 
+; For good measure we also make sure that TX_REQ ENABLE is down and that 
; the bad address line is also reset. 

CLEAR STATUS, TX_REQ_ENABLE,NI DATA_READ,NI_BADRS_RST 


;Read the TX status register to clear any pending interrupts. 
NI_TX STATUS READ 
;Now set the register values derived from TWRAP, RWRAP, and MSIZE. 
;RWBASE := TWRAP 
DEBUG, ALUA/TWRAP, ALUB/RWBASE, ALUFN/A, ALUDEST/BRAM 
7;RDBASE := TWRAP 
DEBUG, ALUA/ TWRAP, ALUB/RDBASE, ALUFN/A, ALUDEST/BRAM 


;RWCUR := TWRAP + 1 
DEBUG, ALUA/ TWRAP, ALUB/RWCUR, ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 
7RDCUR := TWRAP + 1 


DEBUG, ALUA/TWRAP, ALUB/RDCUR, ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 
;RDLIMIT := RWRAP - 1 

DEBUG, ALUA/RWRAP, ALUB/RDLIMIT, ALUFN/SUBZ2A, ALUDEST/BRAM, CRY_0 
;Compute TWRAP-MSIZE-1 and put result in Q-reg 
DEBUG, ALUA/TWRAP, ALUB/MSIZE, ALUFN/SUBAB, ALUDEST/Q, CRY_0 
:= TWRAP - MSIZE - 1 
DEBUG, ALUA/ TEMP, ALUB/TBLEFT, ALUFN/Q, ALUDEST/BRAM 
;Jump to the dispatch vector 

JUMP_VECTOR 


*TBLEFT 


' 


. 
, 


U 


7; VEX02 .MCR[, ] 


VEX02 .MIC 22:33 20-FEB-1985 


0031, 


0034, 


0035, 


0036, 


0037, 


0032, 


0033, 


0341,1121,0407, 7777, 7760, 3400 


0602,0337,7777, 7775, 7760, 3400 


0320,1204,1047, 7777, 7760,3400 


3406,0147, 7777, 7777, 7760, 3400 


3406,0147, 7777, 7777, 7760, 3400 


0442, 0337, 2115, 7777, 7760, 3400 


0401, 4134, 0007, 7777, 7760, 3400 


Se as Sd 


OP eT eS SS 


ST it OT ee es eT es eT 
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-TOC "Idle Routine" 


7IDLE - Idle routine. 


2 if NI running 

5 if nothing to do 

7 8 to 12 to start a transfer (10 is standard case - no wraps, etc.). 
4 or 6 to process a TX done interrupt. 

6 to turn off RX, 12 to turn on RX 


;Note that for the TX buffer, TWCUR and TWBASE are initially the same. 


; RUNNING .ATN_L 


: 0 0 No TX. Check interrupt. 

7 0 1 No TX in progress, no interrupt. Maybe start xfer. 
; 1 0 TX in progress, do nothing. 

3 1 1 TX in progress, do nothing. 


?Branch on NI running or not. Do TWBASE-TDBASE for empty check. 

;Warning: this instruction is repeated in the vector table! 

IDLE: J/IDLE.A, COND/RUNNING.ATN_L, DEBUG, ALUA/TWBASE, ALUB/TDBASE, ALUFN/SUBAB, 
ALUDEST/NOP, CRY_1 

=00 

70.0 ~ NI is off. Read TX status register into TEMP, join TX_ACQ ERR checks. 

IDLE.A: J/INT.A,NI_TX_STATUS_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/D, ALUDEST/BRAM 


70.1 ~ NI is off, no interrupts. Branch on empty check. Put TWBASE on bus 
* and increment TWCUR (note that TWCUR = TWBASE right now). 
J/IDLE.B, COND/ZERO, DALU_READ, ALUA/TWCUR, ALUB/TWCUR, ALUFN/ADDZA, 
ALUDEST/BRAMA, CRY_1 


71.0 - We are already transmitting. Do nothing. 
JUMP_VECTOR 


71.1 - We are already transmitting. Do nothing. 
JUMP_VECTOR 
=0 
sNot empty. Do TWTOP := BUFFER[TWBASE] (may be positive or negative). 
IDLE.B: J/IDLE.E, BUFR_READ, ALUA/TWTOP, ALUB/TWTOP, ALUFN/D, ALUDEST/BRAM 


Transmit and Deposit base pointers point to same place. We are either empty 
or are totally full. Go check TX_AVAIL_L to decide which, put TWBASE on bus. 
Note that the double COND is a crock to get around a lack of wires. We 
ignore MBUS_VALID and just duplicate the code handling TX_AVAIL_L. 

J/IDLE.D,COND/TX_AVAIL_L.MBUS VALID, DALU_READ, ALUA/TWBASE, ALUB/TWBASE, 
ALUFN/A, ALUDEST/NOP 


’ 


. 
, 


U 


U 


U 


U 


U 


; VEX02.MCR[, ] 
VEX02 .MIC 


0040, 


0041, 


0042, 


0043, 


0044, 


0046, 


0047, 


0050, 


0051, 


22:33 20-FEB-1985 


0700,4314,1047, 7777, 7760, 3400 


0700,4314,1047, 7777, 7760, 3400 


0442,0337,2115, 7777, 7760, 3400 


0442,0337,2115, 7777, 7760, 3400 


0460,3121,1127, 7777, 7730, 3400 


0500, 0301, 2007, 7777, 7760, 3400 


0500,1321, 2007, 7777, 7760, 3400 


0452, 0351, 2127, 7777, 7660, 3400 


0562,0347,1047, 7777, 7660,3400 


“ 


Sa Se se te Se te oe 


Set eT ee eT eT ee i a ee Pe Pe Pe a a 
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518 
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;IDLE - Start a transmission. 


;Withdrawl and deposit point to same spot and we have room, i.e. we are empty. 

7 Go see if someone wants to toggle packet reception. First decrement TWCUR. 

IDLE.D: J/RCV.A,COND/RX_ENABLE OUT. IN, DEBUG, ALUA/TWCUR, ALUB/TWCUR, ALUFN/SUBZA, 
ALUDEST/BRAM, CRY_0 


7; (Duplicate) 
J/RCV.A,COND/RX_ENABLE_OUT.IN, DEBUG, ALUA/TWCUR, ALUB/TWCUR, ALUFN/SUBZA, 
ALUDEST/BRAM, CRY_0 


;The rare case of the TX buffer being totally full. 
*Do TWTOP := BUFFER(TWBASE] (may be positive or negative). 
J/IDLE.E, BUFR_READ, ALUA/TWTOP, ALUB/TWTOP, ALUFN/D, ALUDEST/BRAM 


; (Duplicate) 
J/IDLE.E, BUFR_READ, ALUA/TWTOP, ALUB/TWTOP, ALUFN/D, ALUDEST/BRAM 


7We are definitely going to start transmitting. Set TX REQ ENABLE, branch 

7 on whether the length we read from the buffer was negative, and compute 

; TWRAP-TWCUR to see if we need to wrap TWCUR. 

IDLE.E: J/IDLE.F,COND/NEG, DEBUG, SET_STATUS, TX_REQ ENABLE, ALUA/TWRAP, ALUB/TWCUR, 
ALUFN/SUBAB, ALUDEST/NOP, CRY_1 

=0 

?The length was positive. Do TWTOP := TWBASE + <length>. Branch on wrap. 

IDLE.F: J/IDLE.G, COND/ZERO, DEBUG, ALUA/TWBASE, ALUB/TWTOP, ALUFN/ADDAB, 
ALUDEST/BRAM 


?The length was negative. Do TWTOP := TWBASE - <- length>. Branch on wrap. 
J/IDLE.G, COND/ZERO, DEBUG, ALUA/TWBASE, ALUB/TWTOP , ALUFN/SUBAB, 
ALUDEST/BRAM, CRY_1 


=0 

7No wrap needed. Mod TWTOP by TWRAP. Turn off TX_EOF 

IDLE.G: J/IDLE.H, DEBUG, CLEAR_STATUS, TX_EOF, ALUA/TWRAP, ALUB/TWTOP, ALUFN/NAANDB, 
ALUDEST/BRAM 


rHere to wrap TWCUR. Turn off TX_EOF 
J/IDLE.K, DEBUG, CLEAR_STATUS, TX_EOF, ALUA/TWCUR, ALUB/TWCUR, ALUFN/Z, 
ALUDEST/BRAM 


, 


, 


> VEX02.MCR[,] 


0045, 


0052, 


0053, 


0054, 


0055, 


0056, 


0057, 


0522,1304,1047, 7777, 7760, 3400 


0532,1121, 2447, 7777, 7760, 3400 


0540,0147,7777, 7777, 7760, 3400 


3406,0147, 7777, 7777, 7760,3400 


3406,0347,1047, 7777, 7760, 3400 


0572,0351, 2127, 7777, 7760,3400 


3406,0304,1047, 7777, 7760, 3400 


MICRO 20(156) 
> VEX02 .MIC 22:33 20-FEB-1985 


536 
537 
538 
539 
540 
541 
542 
543 
544 
545 
546 
547 
548 
549 
550 
§51 
552 
553 
554 
555 
556 
557 
558 
559 
560 
561 
562 
563 
564 
565 
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;IDLE - Start a transmission 


7This code does the extra increment of TWCUR (see monument). We start at 
; IDLE.H if we did not wrap previously, IDLE.K otherwise. 


yIncrement TWCUR 
IDLE.H: DEBUG, ALUA/TWCUR, ALUB/TWCUR, ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 


?Check for wrap by doing TWCUR-TWRAP 
DEBUG, ALUA/TWCUR, ALUB/TWRAP, ALUFN/SUBAB, ALUDEST/NOP,CRY_1 


7See if we need to wrap 
J/IDLE.J,COND/ZERO 


=0 
;No wrap necessary, just vector 
IDLE.J: JUMP VECTOR 


;Wrap TWCUR to zero and then vector 
JUMP_VECTOR, DEBUG, ALUA/ TWCUR, ALUB/TWCUR, ALUFN/Z, ALUDEST/BRAM 
;Here after we wrapped because of incrementing TWCUR. Do TWTOP mod TWRAP. 


IDLE.K: DEBUG, ALUA/TWRAP, ALUB/TWTOP , ALUFN/NAANDB, ALUDEST/BRAM 


;Increment TWCUR and vector (already at 0, so no need to check for wrap). 
JUMP_VECTOR, DEBUG, ALUA/TWCUR, ALUB/TWCUR, ALUFN/ADDZA, ALUDEST/BRAM 


>: VEX02.MCR[,] 
> VEX02.MIC 22:33 20-FEB-1985 


, 


0060, 


0062, 


0063, 


0061, 


0064, 


0065, 


0620, 6534, 7767, 7777, 7760, 3400 


0612,0534, 7767, 7777, 7760, 3400 


3406,0147, 7777, 7777,3770, 3400 


0640, 6147,7777, 7777, 7760, 3400 


3406, 0147,7777, 7777, 7760, 3400 


3406,0147, 7777, 7777, 3770, 3400 


SeoNe Se Ne 


we Ne Ne Se se se te 


Pr eT eT 
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568 
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575 
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580 
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598 
599 
600 
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;IDLE - Check for transmission errors. 


;This code checks for transmission errors. The defined bits (from right to 
; left) are listed below. We check for bits 0 or 2 being set and set 
; TX_ACQ ERR if either flag is up. 


- transmit underflow 
~ transmit collision 
transmit timeout 

- transmit okay 

~ old/new status 


a WNH CO 
| 


;See if bit 0 was set (TX underflow) and shift down once 

INT.A: J/INT.B,COND/DBUS _LSB,DALU_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/A, 
ALUDEST/BDOWN 

=0 

;The LSB was zero, so no problem. Shift down again 

INT.B: J/INT.C,DALU_READ, ALUA/ TEMP, ALUB/TEMP, ALUFN/A, ALUDEST/BDOWN 


7The LSB is set, call the lossage an acquisition error, then vector 
JUMP_VECTOR, SET_STATUS, TX_ACQ_ERR 


7See if bit 2 was set (TX timeout). 
INT.C: J/INT.D,COND/DBUS_ LSB 


=0 
;The LSB is zero, no problems. Just vector 
INT.D: JUMP_VECTOR 


;The LSB is set, call the lossage an acquisition error, then vector 
JUMP_VECTOR, SET_STATUS, TX_ACQ_ERR 


? 


. 
, 


0 


; VEXO02.MCR{,] 
VEX02 .MIC 


0070, 


0071, 


0072, 


0073, 


0066, 
0067, 
0074, 
0075, 
0076, 


0077, 


0100, 


22:33 20-FEB-1985 


3406,0147,7777, 7777, 7760,3400 


0662,0347,7777, 7577, 7760, 3400 


0732,0147, 7767, 7776, 7740,3000 


3406, 0147,7777, 7777, 7760, 3400 


0672,1704, 7777, 7777, 7760, 3400 
0742,0734,7777, 7777, 7760, 3400 
0752,0734,7777, 7777, 7760, 3400 
0762,0734, 7777, 7777, 7760, 3400 
0772,0734, 7777, 7777, 7760,3400 


1002,0734,7777, 7777, 7750,3400 


3406,0134, 7767, 7776, 7760, 3000 


see te 


ST) iT Mr ad et et a ey eT er en en en Ty 
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602 
603 
604 
605 
606 
607 
608 
609 
610 
611 
612 
613 
614 
615 
616 
617 
618 
619 
620 
621 
622 
623 
624 
625 
626 
627 
628 
629 
630 
631 
632 
633 
634 
635 
636 
637 
638 
639 
640 
641 
642 
643 
644 
645 
646 
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;IDLE - Reception toggling. 


tHere to toggle packet reception. Last instruction was at IDLE.D. 

* Note that it doesn’t matter if we take a lot of instructions to toggle 

? packet reception since either nothing has been happening or nothing will 
7 be happening. 


=00 
70.0 - do nothing 
RCV.A: JUMP_VECTOR 


70.1 - enable reception (write a 100 to the NI command register) 
;First we create a zero in TEMP. Also reset bad address line. 
J/RCV.C,NI_BADRS_RST,ALUA/TEMP, ALUB/TEMP, ALUFN/2, ALUDEST/BRAM 


71.0 - disable reception (write a zero to the NI command register) 

;We drop our status line and write a zero the NI. We let the status line 

7 stabilize before jumping to the vector routine (waste a cycle), 
J/RCV.B,CLEAR_STATUS, RX_ENABLE, NI_RX_COMMAND_LOAD, DALU_READ, ALUA/TEMP, 
ALUB/TEMP, ALUFN/Z, ALUDEST/NOP 


do nothing 
JUMP_VECTOR 


7Add a 
RCV.C: 
7Shift 


1 to 0 and shift up to get a 2. 

ALUA/TEMP, ALUB/ TEMP, ALUFN/ADD2A, ALUDEST/BUP, CRY_1 
2 up to 4 

ALUA/TEMP, ALUB/ TEMP , ALUFN/A, ALUDEST/BUP 

4 up to 10 

ALUA/TEMP, ALUB/ TEMP , ALUFN/A, ALUDEST/BUP 

10 up to 20 

ALUA/TEMP, ALUB/ TEMP , ALUFN/A, ALUDEST/BUP 
20 up to 40 

ALUA/TEMP, ALUB/ TEMP, ALUFN/A, ALUDEST/BUP 

40 up to 100. Do the set RX_ENABLE one cycle before the vector 
SET_STATUS, RX_ENABLE, ALUA/TEMP, ALUB/TEMP, ALUFN/A, ALUDEST/BUP 


7Shift 
7Shift 
7Snift 


;Shift 


wWrite 100 to the NI, then vector 
JUMP_VECTOR,NI_RX_COMMAND LOAD, DALU_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/A, 


ALUDEST/NOP 


. 
' 


, 


VEX02 .MCR [, ] 
VEX02 MIC 


0340, 
0341, 
0342, 
0343, 
0344, 
0345, 
0346, 


0347, 


0350, 


0351, 


0352, 


0353, 


0354, 


0355, 


0356, 


0357, 


22:33 20-FEB~1985 


0312, 0147, 7777, 7777, 7760, 3400 
0312, 0147, 7777, 7777, 7760, 3400 
0312,0147, 7777, 7777, 7760,3400 
0312,0147,7777, 7777, 7760,3400 
0312,0147,7777, 7777, 7760, 3400 
0312,0147,7777, 7777, 7760, 3400 
0312,0147,7777, 7777, 7760, 3400 


0341,1121,0407, 7777, 7760,3400 


3604,0147,7777, 7777, 7760,3400 


3604, 0147, 7777, 7777, 7760,3400 


1012,1121, 2057, 7777, 7760, 3400 


1172,1204,5247, 7777, 7760, 3400 


2352,0121, 4317, 7777, 7760, 3400 


2402, 0334,1017, 7777, 7720, 3400 


2412,1121, 5637, 7777, 7760, 3400 


2452,1203,1467, 7777, 7760, 3400 


we se se te te Me Ms Se Me 8 te te te fe 
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647 
648 
649 
650 
651 
652 
653 
654 
655 
656 
657 
658 
659 
660 
661 
662 
663 
664 
665 
666 
667 
668 
669 
670 
671 
672 
673 
674 
675 
676 
677 
678 
679 
680 
681 
682 
683 
684 
685 
686 
687 
688 
689 
690 
691 
692 
693 
694 
695 
696 
697 
698 
699 
700 
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-TOC "Vector Requests” 


7;Vector Request Dispatch Table 


=11100000 

VECTOR: 

7Requests 0-7 are idle routine requests. Only offset 7 is ever used. 
J/IDLE 
J/IDLE 
J/IDLE 
J/IDLE 
J/IDLE 
J/IDLE 
J/IDLE 

707 - First instruction of the IDLE routine 

*Branch on NI running or not. Do TWBASE-TDBASE for empty check. 
J/IDLE.A, COND/RUNNING.ATN_L, DEBUG, ALUA/TWBASE, AlLUB/TDBASE, ALUFN/SUBAB, 
ALUDEST/NOP,CRY_ 1 


710 - Xport read request 
J/R.FIELD, COND/RCON_REQ 


711 - Xport load request 
J/R.FIELD, COND/RCON_REQ 


712 - TX to NI 
;Compute TWCUR-TWTOP to see if we’re at the last data word 
J/V12,ALUA/TWCUR, ALUB/TWTOP , ALUFN/SUBAB, ALUDEST/NOP, CRY_1 


713 - NI to RX 
;Load RDCUR onto DBus, increment RDCUR 
J/V13,DALU_READ, ALUA/RDCUR, ALUB/RDCUR, ALUFN/ADDZA, ALUDEST/BRAMA, CRY_1 


714 - RX abort. 
7Jump to common abort code after preparing RDCUR wrap check (RWRAP- (RDBASE+1) } 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST /NOP 


715 - TX abort. 

7Shut off NI and do TWCUR := TWBASE. 
J/V15,CLEAR_STATUS, TX_REQ_ENABLE, ALUA/TWBASE, ALUB/TWCUR, ALUFN/A, 
ALUDEST/BRAM 


716 - Mport Load. RX to Barrel. 
7Do RWCUR-TWTOP to see if we already sent last data word 
J/V16, ALUA/RWCUR, ALUB/RWTOP , ALUFN/SUBAB, ALUDEST/NOP,CRY_1 


717 - Mport Read. Barrel to TX. 
;Increment TDCUR and load address onto data bus 
J/V17,DALU_READ, ALUA/TDCUR, ALUB/TDCUR, ALUFN/ADDZB, ALUDEST/BRAMA, CRY_1 


. 
, 


U 


U 


U 


; VEX02.MCRI, ] 
» VEX02.MIC 22:33 20-FEB-1985 


0101, 


0102, 


0103, 


0104, 


0106, 


0107, 


1020,1203,1047, 7777, 7570, 3400 


1042,1121, 2455, 7773, 7760, 3400 


1052,0134, 0007, 7777, 7670, 3400 


1060,0147, 7777, 7777, 7760, 3400 


3406,0147, 7777, 7777, 7760, 3400 


3406,0347,1377, 7777, 7760, 3400 


Oe i i i eT 
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701 
702 
703 
704 
705 
7106 
7107 
7108 
709 
710 
711 
712 
713 
714 
715 
716 
717 
718 
719 
720 
721 
122 
123 
724 
725 
726 
727 
728 
729 
730 
731 
732 
733 
734 
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sVector Request 12 - transmit buffer to Ethernet 


; Not at EOF 5 ins; at EOF 10 or 11 ins 


;Compute TWCUR-TWTOP to see if we’re at the last data word 
2V..12: J/V12, ALUA/TWCUR, ALUB/TWTOP, ALUFN/SUBAB, ALUDEST/NOP, CRY 1 


;We test the previous result, put TWCUR on data bus, and increment TWCUR 

+ We also set low byte valid (we may change our mind if at EOF). 

v12: J/V12A, COND/ZERO, SET_ STATUS, LBYTE_ VALID, DALU_READ, ALUA/TWCUR, 
ALUB/TWCUR, ALUFN/ADDZB, ALUDEST/BRAMA, CRY_1 

=0 

*Not at EOF. Write data word to the NI and compute TWCUR-TWRAP. Be careful 

> not to put anything on the Dbus for one more cycle. 

V12A: J/V12B,NI_DATA_LOAD, BUFR_READ, ALUA/TWCUR, ALUB/TWRAP, ALUFN/SUBAB, 
ALUDEST/NOP, CRY_1 


;Here on last word. We set TX_EOF and load TWBASE onto data bus since 

; we cannot send the last word right away. 
J/V12D, DALU_READ, SET_STATUS, TX_EOF, ALUA/TWBASE, ALUB/TWBASE, ALUFN/A, 
ALUDEST/NOP 


;Here on a short call to branch after computing TWCUR-TWRAP 
V12B: J/V12C, COND/ZERO 


=0 
;Here on short write to do nothing except return 
V12C: JUMP_VECTOR 


;Here on short write to wrap TWCUR and return 
JUMP_VECTOR, ALUA/TEMP, ALUB/ TWCUR, ALUFN/2Z, ALUDEST/BRAM 


Fy 


. 
, 


U 


U 


U 


10) 


; VEX02.MCR[, ] 


VEX02 .MIC 22:33 20-FEB-1985 


0105, 


0110, 


0112, 


0113, 


0111, 


0114, 


0115, 


0116, 


0120, 


0121, 


1102,0337,7775, 7777, 7760, 3400 


1120,3024,7777, 7777, 7760, 3400 


1112,1301,3377, 7777, 7760, 3400 


1112,1300,3157, 7777, 7560, 3400 


1140,2114,1047, 7777, 7760, 3400 


1162,1121, 2455, 7773, 6760, 3400 


1162,1121, 2455, 7773, 6770,3400 


1200,0147, 7777, 7777, 7720, 3400 


3406,0334,0057, 7777, 7760, 3400 


1202, 0347,1057, 7777, 7760, 3400 
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735 
736 
737 
738 
739 
740 
741 
742 
743 
744 
745 
746 
747 
7148 
749 
750 
751 
752 
7153 
754 
755 
756 
757 
758 
7159 
760 
761 
762 
763 
764 
765 
766 
767 
768 
769 
770 
771 
772 
773 
774 
775 
776 
777 
7178 
779 
780 
781 
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7Vector Request 12 - transmit buffer to Ethernet (cont'd) 


;Here on End of Frame. 


;Read length from buffer into TEMP. 
V12D: BUFR_READ, ALUA/TEMP , ALUB/TEMP, ALUFN/D, ALUDEST/BRAM 


*Branch on length negative (low byte invalid). Put negative length in Q 
J/V12E, COND/NEG, ALUA/TEMP, ALUB/ TEMP , ALUFN/SUBAZ, ALUDEST/Q,CRY_1 


=0 
;Compute TBLEFT := TBLEFT+BUFFER[(TWBASE]+1 (words available in TX buffer) 
V12E: J/V12E, ALUA/ TEMP, ALUB/TBLEFT, ALUFN/ADDAB, ALUDEST/BRAM, CRY_1 


7Compute words left in TX buffer as above. Set low byte invalid. 
J/V12F, CLEAR_STATUS, LBYTE_ VALID, ALUA/TBLEFT, ALUB/TBLEFT, ALUFN/ADDAQ, 
ALUDEST/BRAM, CRY_1 


;Branch on previous result negative. If so, then we don’t have any room in 

+ the TX buffer and TX_BUFR_AVAIL _L should be set (it is active low). 

7 Load TWCUR~1 onto data bus (that pointer was already incremented!). 

V12F: J/V12G, COND/NEG, DALU_READ, ALUA/TWCUR, ALUB/TWCUR, ALUFN/SUBZA, 
ALUDEST/NOP,CRY_0 

=0 

;Load the last data word and compute TWRAP-TWCUR. Also say we have room. 

; Be careful not to put anything on the Dbus for at least one more cycle. 

V12G: J/V12H,NI_DATA_LOAD, BUFR_READ,CLEAR_STATUS, TX_BUFR_AVAIL_L, ALUA/TWCUR, 
ALUB/TWRAP , ALUFN/SUBAB, ALUDEST/NOP, CRY_1 


Load the last data word and compute TWRAP-TWCUR. Say we have no room. 

Be careful not to put anything on the Dbus for at least one more cycle. 
J/V12H, NI_DATA_LOAD, BUFR_READ, SET_STATUS,TX_BUFR_AVAIL_L, ALUA/TWCUR, 
ALUB/TWRAP, ALUFN/SUBAB, ALUDEST/NOP,CRY_1 


. 
D 
. 
, 


= 


;Branch on wrap. Shut off the NI. 
V12H: J/V123, COND/ZERO, CLEAR_STATUS, TX_REQ ENABLE 


=0 
7Do TWBASE:=TWCUR, and return to vector routine 
V1l2Jd: JUMP_VECTOR, ALUA/TWCUR, ALUB/TWBASE, ALUFN/A, ALUDEST/BRAM 


;Here to wrap TWCUR 
J/V123, ALUA/TWCUR, ALUB/ TWCUR, ALUFN/Z, ALUDEST/BRAM 


2 
, 
. 
, 


U 


U 


U 


U 


U 


VEX02.MCR[,] 


VEX02 .MIC 22:33 20-FEB-1985 


0117, 


0124, 


0125, 


0126, 


0127, 


1241, 7121, 6256, 7767, 7760, 3400 


1401,2021, 4257, 7777, 7760, 3400 


1441,2021,4257, 7777, 7760, 3400 


1301, 3121, 6657, 7777, 7760, 3400 


1301, 3121, 6657, 7777, 7760, 3400 
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782 
7183 
784 
785 
786 
7187 
7188 
7189 
790 
791 
792 
793 
794 
795 
7196 
797 
798 
799 
800 
801 
802 
803 
804 
805 
806 
807 
808 
809 
810 
811 
812 
813 
814 
815 
816 
817 
818 
819 
820 
821 
822 
823 
824 
825 
826 
827 
828 
829 
830 
831 
832 
833 
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7Vector Request 13 - Ethernet to receive buffer 


;Not at EOF: overflow or bad address - 4 ins 
; Normal - 5 or 6 ins 


;If at EOF: If flush - 7 ins 

Fi If ends at RWRAP: okay - 10 ins (11 if LByte invalid) 
abort - 10 or 12 ins 

Standard case: okay - 12 ins 
abort - 8 or 12 ins 


se Ne we 


; Read data from the NI, possibly handle End of Frame and Low Byte Valid. 


Truth table for first COND. Note well: both conditions are active low! 
RX EOF. LBYTE 


: 0 0 EOF, low byte is valid 

; 0 1 EOF, low byte not valid 

; 1 0 not EOF, don’t care about low byte (should be valid) 
. 1 1 not EOF, don’t care about low byte (should be valid) 


;Load RDCUR onto DBus, increment RDCUR 
7V..13: J/V13,DALU_READ, ALUA/RDCUR, ALUB/RDCUR, ALUFN/ADDZA, ALUDEST/BRAMA, CRY_1 


;Write from NI to buffer, compute RDCUR-RWRAP (for wrap check). Do a four-way 
7 branch on End of Frame and Low Byte Valid. 
V13: J/V13A, COND/RX_EOF.LBYTE,NI_DATA_READ, BUFR_LOAD, ALUA/RDCUR, 

ALUB/RWRAP , ALUFN/SUBAB, ALUDEST/NOP, CRY_1 


=00 

70.0 - EOF and LByte valid. 

7Compute four-way branch on wrap and packet flush conditions. 

7 Do RDCUR-RDBASE-1 to Q-reg just in case. 

V13A: J/V13E0F, COND/ZERO.F LUSH, ALUA/RDCUR, ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/Q 


70.1 - EOF and LByte invalid 
;Compute four-way branch on wrap and packet flush conditions. 
7 Do RDCUR-RDBASE-1 to Q-reg just in case. 
J/V13E0B, COND/2ZERO,.F LUSH, ALUA/RDCUR, ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/Q 


71.0 - Not at EOF, don’t care about LByte 
7Compute four-way branch on wrap and packet overflow and do RDCUR-RDLIMIT in 
7 case we need to check for overflow. 
J/V13NRM, COND/ZERO.F LUSH, ALUA/RDCUR, ALUB/RDLIMIT, ALUFN/ SUBAB, 
ALUDEST/NOP,CRY_1 


71.1 - Not at EOF, don’t care about LByte 
;Compute four-way branch on wrap and packet overflow and do RDCUR-RDLIMIT in 
7 case we need to check for overflow. 
J/V13NRM, COND/ZERO.F LUSH, ALUA/RDCUR, ALUB/RDLIMIT, ALUFN/ SUBAB, 
ALUDEST/NOP, CRY_1 


* 
‘ 
’ 


VEX02.MCR[,] 
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0130, 


0131, 


0132, 


0133, 


0122, 


0123, 


0134, 


0136, 


0137, 


1220,0147, 7777, 7777, 7760, 3400 


3406,0314,5257, 7777, 7760, 3400 


1342,1121, 6537, 7777, 7760, 3400 


3406, 0314,5257, 7777, 7760, 3400 


3406, 0147, 7777, 7777, 7760, 3400 


3406, 0314,5257, 7777,5770,3400 


1360, 0147,7777, 7777, 7760, 3400 


3406, 0334,5137, 7777, 7760, 3400 


3406, 0314,5257, 7777,5770,3400 
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834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 
847 
848 
849 
850 
851 
852 
853 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 
866 
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868 
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;Vector Request 13 - Not at End of Frame. 


?7We are handling the normal case. We just did a four-way branch on last ALU 
; result was zero (wrap RDCUR) and RX OVERFLOW. The circuitry for that COND 
; is the same as for the EOF case. 


; ZERO.FLUSH 

; 0 0 No wrap, no overflow. Must check for overflow 
Hi 0 1 Overflow. Decrement RDCUR and return. 

; 1 0 Wrap, no overflow. Must check for overflow. 

H 1 1 Overflow. Decrement RDCUR and return. 

=00 


70.0 - no wrap, no known overflow. Branch on result of overflow check. 
V13NRM: J/V13NRA, COND/ZERO 


70.1 - overflow. Decrement RDCUR and vector. 
JUMP_VECTOR, ALUA/RDCUR, ALUB/RDCUR, ALUFN/SUBZA, ALUDEST/BRAM, CRY _0 


71.0 - wrap and check for overflow. Do TWRAP-RDLIMIT here. Set RDCUR later. 
J/V13NRB, ALUA/TWRAP , ALUB/RDLIMIT, ALUFN/ SUBAB, ALUDEST/NOP, CRY_1 


71.1 - overflow. Decrement RDCUR and vector. 
JUMP_VECTOR, ALUA/RDCUR, ALUB/RDCUR, ALUFN/SUBZA, ALLUDEST/BRAM, CRY_0 
=0 
7;No overflow, just vector 
V13NRA: JUMP_VECTOR 


;We just detected overflow. Decrement RDCUR, set RX_OVERFLOW, and vector 
JUMP_VECTOR, SET_STATUS, RX_OVERFLOW, ALUA/RDCUR, ALUB/RDCUR, ALUFN/ SUBZA, 
ALUDEST/BRAM, CRY_0 


;We now check for overflow. Still need to set RDCUR to TWRAP if no overflow 
V13NRB: J/V13NRC,COND/ZERO 


=0 
;Wrapped and no overflow. Set RDCUR to TWRAP and vector 
V13NRC: JUMP_VECTOR, ALUA/TWRAP, ALUB/RDCUR, ALUFN/A, ALUDEST/BRAM 


sOverflow at wrap point. Decrement RDCUR (wasn’t changed!), set RX_OVERFLOW, 
7 and vector. 
JUMP_VECTOR, SET_STATUS, RX_OVERF LOW, ALUA/RDCUR, ALUB/RDCUR, ALUFN/SUBZA, 
ALUDEST/BRAM, CRY_0 


. 


0 


U 


U 


VEX02.MCR[,] 
> VEX02.MIC 22:33 20-FEB-1985 


0140, 


0141, 


0142, 


0143, 


0144, 


0145, 


0146, 


0147, 


1572,1121, 5337, 7577, 7760, 3400 


2352,0121,4317, 7777, 7760, 3400 


1512, 0134, 7607, 7577, 7760, 3400 


2352,0121, 4317, 7777, 7760, 3400 


2072,1121,5337, 7577, 7760, 3400 


2352,0121, 4317, 7777, 7760, 3400 


1352,0011, 6207, 7577, 7760, 3400 


2352,0121, 4317, 7777, 7760, 3400 
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we ose Ne 
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884 
885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 
900 
901 
902 
903 
904 
905 
906 
907 
908 
909 
910 
911 
912 
913 
914 
915 
916 
917 
918 
919 
920 
921 
922 
923 
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925 
926 
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928 
929 
930 
931 
932 
933 
934 
935 
936 
937 
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rVector Request 13 - End of Frame switch yard. 


?We are at End of Frame (BOF). We just did a four-way branch on last ALU 
7 result was zero (wrap RDCUR) and the OR of RX OVERFLOW and RX_BAD ADDRESS, 


; ZERO.FLUSH 

H 0 0 No wrap. Q-reg & RDCUR valid. May need 2nd wrap. 

; 0 1 Flush packet. Reset flags. 

; 1 0 Must wrap. Q-reg & RDCUR invalid. Never do 2nd wrap. 
: 1 1 Flush packet. Reset flags. 


;V1I3EOF handles the low byte valid condition. Do a bad address reset if 
; the packet is valid -- resets all address mask state machines. 


=00 

70.0 - No wrap needed yet. Compute RDLIMIT-RDCUR for first overflow check 

V13EOF: J/V13NWR,NI_BADRS_RST, ALUA/RDLIMIT, ALUB/RDCUR, ALUFN/SUBAB, ALUDEST/NOP, 
CRY 1 


70.1- Flush packet. Prepare RDCUR wrap check and join common abort code. 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


71.0 ~ We are at the wrap point, Packet ended at end of buffer, Put RDBASE 

? onto the data bus and join the wrap code. 
J/V13WRP,NI_BADRS_RST, DALU_READ, ALUA/RDBASE, ALUB/TEMP, ALUFN/A, 
ALUDEST/NOP 


1.1 - Flush packet. Prepare RDCUR wrap check and join common abort code, 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/ SUBAB, ALUDEST/NOP 


7V13E0B handles the low byte invalid condition. Do a bad address reset if 
7; the packet is valid ~- resets all address mask state machines. 


=00 

70.0 ~ No wrap needed yet. Compute RDLIMIT-RDCUR for first overflow check 

V13E0B: J/V3BNWR, NI_BADRS_RST, ALUA/RDLIMIT, ALUB/RDCUR, ALUFN/SUBAB, ALUDEST/NOP, 
CRY 1 


70.1- Flush packet. Prepare RDCUR wrap check and join common abort code. 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


71.0 - We are at the wrap point. Packet ended at end of buffer. 

7Do RWRAP-RDBASE-1 to Q-reg 
J/V13WRB,NI_BADRS_RST,DALU_READ, ALUA/RDBASE, ALUB/RWRAP, ALUFN/SUBBA, 
ALUDEST/Q 


71.1 - Flush packet. Prepare RDCUR wrap check and join common abort code. 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


’ 


, 


U 
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0135, 


0150, 


0151, 


0152, 


0153, 


0154, 


0155, 


0156, 


0160, 


0161, 


1502,0134, 4207, 7777, 7760, 3400 


1522,1122, 7766, 7777, 7760,3400 


1522,0121,4306, 7777, 7760, 3400 


1532,1121,2737, 7777, 7760,3400 


1540,1304,5137, 7777, 7760, 3400 


1562,1121, 5337, 7777, 7760, 3400 


2352,0121, 4317, 7777, 7760, 3400 


1600,0147, 7777, 7777, 7760,3400 


3406, 0334, 4137, 7777, 7370, 3400 


2352,0121, 4317, 7777, 7760, 3400 
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938 
939 
940 
941 
942 
943 
944 
945 
946 
947 
948 
949 
950 
951 
952 
953 
954 
955 
956 
957 
958 
959 
960 
961 
962 
963 
964 
965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
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VECTOR REQUESTS 


7Vector Request 13 - EOF, packet ends at RWRAP, 


?The code on this page handles EOF case 1.0, packet ends at RWRAP, no flush. 
7Since we are already at the wrap point, we needn’t check for wrap again. 
7Entry points at V13WRB and V13WRP to handle low byte valid conditions. 


;Low byte is not valid. Put RDBASE on Dbus. 
V13WRB: DALU_READ, ALUA/RDBASE, ALUB/RDBASE, ALUFN/A, ALUDEST/NOP 


;Write negative of length from Q-reg to buffer, then join common code. 
J/V13WRA, BUFR_LOAD, DALU_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/ SUBZ2Q, 
ALUDEST/NOP, CRY_1 


;Low byte is valid. Compute RWRAP-RDBASE-1 (pkt length) and write into buffer 
V13WRP: DALU_READ, BUFR _LOAD, ALUA/RWRAP, ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


7Do first overflow check (RDLIMIT-TWRAP) 
V13WRA: ALUA/RDLIMIT, ALUB/TWRAP , ALUFN/SUBAB, ALUDEST/NOP,CRY_1 


7Branch on first overflow check, do RDCUR := TWRAP + 1. 
J/V13WRC, COND/ZERO, ALUA/TWRAP, ALUB/RDCUR, ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 


=0 
First overflow check okay. Do RDLIMIT-RDCUR for second overflow check. 
V13WRC: J/V13WRD, ALUA/RDLIMIT, ALUB/RDCUR, ALUFN/SUBAB, ALUDEST/NOP, CRY_1 


;We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


7Branch on result of second overflow check. 
V13WRD: J/V13WRE, COND/ZERO 


=0 

7No overflow. Set new RDBASE, say packet is available, and vector. 

V13WRE: JUMP_VECTOR, SET_STATUS, RX_PKT_AVAIL, ALUA/TWRAP, ALUB/RDBASE, ALUFN/A, 
ALUDEST/BRAM 


?We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/ SUBAB, ALUDEST/NOP 


7 VEXO2.MCR[,] MICRO 20(156) MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 26 


7 VEX0O2.MIC 22:33 20-FEB-1985 VECTOR REQUESTS 
7 983 
7 984 7Vector Request 13 - EOF, Low byte valid 
7 985 LIRRSSS Sen SsesertencrSssrs sss sr eta a= 
7 986 : 
7 987 7This code handles EOF case 0.0. No 1st wrap, no flush, low byte valid. 
7 988 ; 
7 989 
7 990 ;Branch on first overflow check. Increment RDCUR, put result in TEMP. 
U 0157, 1620,1304, 7657, 7777, 7760, 3400 7 991 VI3NWR: J/V13NWA, COND/ZERO, ALUA/RDCUR, ALUB/ TEMP , ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 
7 992 
993 =0 


7; 994 7Compute TEMP (=RDCUR)-RWRAP for second wrap check 


YU 0162, 1642,1121, 6377, 7777, 7760,3400 995 V13NWA: J/V13NWB, ALUA/TEMP, ALUB/RWRAP, ALUFN/SUBAB, ALUDEST/NOP, CRY_1 


7; 996 
997 We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J 0163, 2352,0121, 4317, 7777, 7760, 3400 998 J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/ SUBAB, ALUDEST/NOP 
999 = 


1000 ;Branch on result of second wrap check. Also start check for Q-reg negative 


0164, 1660,0132,7777, 7777, 7760,3400 1001 V13NWB: J/V13NWC, COND/ZERO, ALUA/TEMP, ALUB/TEMP, ALUFN/Q, ALUDEST/NOP 


“es Se Se te te Se te 


1002 
1003 =0 

7 1004 
7 1005 ;We do not need to wrap. If we don’t overflow, we know that RDCUR will be 
7 1006 ; TEMP and that RDBASE will be the (present) value of RDCUR. We prepare for 
7; 1007 ; the second overflow check by computing RDLIMIT-TEMP. We then jump to the 
7 1008 ; V13N2A section of code to finish up. We are futher branching on whether 
7 1009 ; the Q-reg (length) is negative. If so, we need to add the length of the RX 
7 1010 ; buffer to Q to get the correct length. 
7 1011 

U 0166, 2000,3121, 7737, 7777, 7760,3400 #1012 V13NWC: J/V13N2A, COND/NEG, ALUA/RDLIMIT, ALUB/TEMP, ALUFN/SUBAB, ALUDEST/NOP,CRY_1 
7 1013 
#1014  ;We need to wrap. If we don’t overflow, we know that RDCUR will be TWRAP 
71015 7 and that RDBASE will be the old value of RDCUR. At this point we prepare 
7 1016 ; for the second overflow check by computing RDLIMIT-TWRAP. We then jump to 
7.1017 7 the V13W2A section of code to finish up. We are futher branching on whether 
7 1018 ; the Q-reg (length) is negative. If so, we need to add the length of the RX 
7 1019 ; buffer to Q to get the correct length. 
7 1020 

U 0167, 1700,3121,2737, 7777, 7760, 3400 7 1021 J/V13W2A, COND/NEG, ALUA/RDLIMIT, ALUB/TWRAP, ALUFN/SUBAB, ALUDEST/NOP, CRY_1 
7 1022 = 


1023 


» 
‘ 


F 
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1740,0134, 7607, 7777, 7760, 3400 


1720,0134, 7607, 7777, 7760, 3400 


1652, 0100, 7526, 7777, 7760, 3400 


2352,0121, 4317, 7777, 7760, 3400 


1652, 0132, 7766, 7777, 7760, 3400 


2352,0121, 4317, 7777, 7760,3400 


1762, 0334, 4257, 7777, 7370, 3400 
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1024 
1025 
1026 
1027 
1028 
1029 
1030 
1031 
1032 
1033 
1034 
1035 
1036 
1037 
1038 
1039 
1040 
1041 
1042 
1043 
1044 
1045 
1046 
1047 
1048 
1049 
1050 
1051 
1052 
1053 
1054 
1055 
1056 
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;Vector Request 13 - EOF, low byte valid. 


tHere to finish up EOF case 0.0 if we had to wrap on the second increment. 


=0 
sTest for overflow, put RDBASE onto data bus. Q contains correct length. 
V13W2A: J/V13W2C,COND/ZERO, DALU_READ, ALUA/RDBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


7Test for overflow, put RDBASE onto data bus. Q needs correcting (is negative) 
J/V13W2B, COND/ZERO, DALU_READ, ALUA/RDBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 

=0 

;Put Qt+t<length of RX> on data bus and write length into buffer 

V13W2B: J/V13W2D,DALU_READ, BUFR_LOAD, ALUA/TWRAP, ALUB/TEMP, ALUFN/ADDAQ, 
ALUDEST/NOP 


;We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


=0 
;Put Q on data bus and write length into buffer 
V13W2C: J/V13W2D, DALU_READ, BUFR_LOAD, ALUA/TEMP, ALUB/TEMP , ALUFN/Q, ALUDEST/NOP 


7We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 
7Do RDBASE := RDCUR. Say a packet is available. 


V1i3W2D: SET_STATUS, RX_PKT_AVAIL, ALUA/RDCUR, ALUB/RDBASE, ALUFN/A, ALUDEST/BRAM 


;Do RDCUR := TWRAP and vector 
JUMP_VECTOR, ALUA/TWRAP, ALUB/RDCUR, ALUFN/A, ALUDEST/BRAM 


’ 
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2040,0134, 7607, 7777, 7760, 3400 


2020,0134, 7607, 7777, 7760, 3400 


1772,0100, 7526, 7777, 7760, 3400 


2352,0121, 4317, 7777, 7760, 3400 


1772, 0132, 7766, 7777, 7760,3400 


2352, 0121, 4317, 7777, 7760, 3400 


2062,0334,4257, 7777, 7370, 3400 


3406,0334, 5377, 7777, 7760, 3400 
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1060 
1061 
1062 
1063 
1064 
1065 
1066 
1067 
1068 
1069 
1070 
1071 
1072 
1073 
1074 
1075 
1076 
1077 
1078 
1079 
1080 
1081 
1082 
1083 
1084 
1085 
1086 
1087 
1088 
1089 
1090 
1091 
1092 
1093 
1094 
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;Vector Request 13 - EOF, low byte valid. 


, 
. 
, 


;Here to finish up EOF case 0.0 if we did not wrap on the second increment. 


=0 
*Test for overflow, put RDBASE onto data bus. Q is okay 
V13N2A: J/V13N2C,COND/ZERO, DALU_READ, ALUA/RDBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


?Test for overflow, put RDBASE onto data bus. Q is negative and needs fixing. 
J/V13N2B, COND/ZERO, DALU_READ, ALUA/RDBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 

=0 

*Put Q+<RX length> on data bus and write length into buffer 

V13N2B: J/V13N2D,DALU_READ, BUFR_LOAD, ALUA/TWRAP, ALUB/TEMP, ALUFN/ADDAQ, 
ALUDEST/NOP 


;We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 

=0 

7Put Q on data bus and write length into buffer 

V13N2C: J/V13N2D, DALU_READ, BUFR_LOAD, ALUA/TEMP, ALUB/TEMP, ALUFN/Q, ALUDEST/NOP 


;We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 
#Do RDBASE := RDCUR, say that a packet is available 


V13N2D: SET_STATUS,RX_PKT_AVAIL, ALUA/RDCUR, ALUB/RDBASE, ALUFN/A, ALUDEST/BRAM 


7Do RDCUR s= TEMP and vector 
JUMP_VECTOR, ALUA/TEMP, ALUB/RDCUR, ALUFN/A, ALUDEST/BRAM 


, 
, 


U 0207, 


0 0210, 


0 0211, 


U 0212, 


J 0214, 


0215, 
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2100,1304, 7657, 7777, 7760, 3400 


2122,1121, 6377, 7777, 7760, 3400 


2352,0121, 4317, 7777, 7760,3400 


2140,1022, 7777, 7777, 7760, 3400 


2260,3121, 7737, 7777, 7760, 3400 


2160,3121,2737, 7777, 7760, 3400 
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1095 
1096 
1097 
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107 
1108 
1109 
1110 
1111 
1112 
1113 
1114 
1115 
1116 
1117 
1118 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1128 
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
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1140 
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#Vector Request 13 - EOF, low byte NOT valid 


iThis code handles EOF case 0.0. No 1st wrap, no flush, low byte NOT valid. 
?The only difference between this page and the one starting with V13NWR 
7 is that V13NWB puts ~Q on the bus and into the Q-reg. 


#Branch on first overflow check. Increment RDCUR, put result in TEMP. 
V3BNWR: J/V3BNWA, COND/ZERO, ALUA/RDCUR, ALUB/ TEMP , ALUFN/ADD2A, ALUDEST/BRAM, CRY_1 


=0 
;Compute TEMP (=RDCUR)-RWRAP for second wrap check 
V3BNWA: J/V3BNWB, ALUA/TEMP, ALUB/RWRAP, ALUFN/SUBAB, ALUDEST/NOP,CRY_1 


*We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


;Branch on result of second wrap check. If Q as it stands in Q-reg is 

* negative, we will need to add it to the length of the RX buffer to get the 

# correct length. Since we are handling low byte invalid, we want the ultimate 
+ length to he negative. To that end, negate Q for our test and write the 

7 result back to the Q-reg. 

V3BNWB: J/V3BNWC,COND/ZERO, ALUA/TEMP, ALUB/TEMP, ALUFN/SUBZQ, ALUDEST/Q, CRY_1 


=0 


;We do not need to wrap. If we don’t overflow, we know that RDCUR will be 

; TEMP and that RDBASE will be the (present) value of RDCUR. We prepare for 
7; the second overflow check by computing RDLIMIT-TEMP. We then jump to the 

7; V3BN2A section of code to finish up. We are futher branching on whether 

7 the Q-reg (length) was originally negative. If so, we need to add the 

+ length of the RX buffer to Q to get the correct length. 


V3BNWC: J/V3BN2A, COND/NEG, ALUA/RDLIMIT, ALUB/TEMP, ALUFN/ SUBAB, ALUDEST/NOP, CRY_1 


;We need to wrap. If we don’t overflow, we know that RDCUR will be TWRAP 

7 and that RDBASE will be the old value of RDCUR. At this point we prepare 

+ for the second overflow check by computing RDLIMIT-TWRAP. We then jump to 

7 the V3BW2A section of code to finish up. We are futher branching on whether 
7 the Q-reg (length) was originally negative. If so, we need to add the 

* length of the RX buffer to Q to get the correct length. 


J/V3BW2A, COND/NEG, ALUA/RDLIMIT, ALUB/TWRAP, ALUFN/SUBAB, ALUDEST/NOP, CRY_1 


' 
. 
’ 
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2220,0134, 7607, 7777, 7760, 3400 


2132,1110, 7526, 7777, 7760,3400 


2352,0121,4317, 7777, 7760, 3400 
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1147 
1148 
1149 
1150 
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7Vector Request 13 - EOF, low byte NOT valid 


;Here to finish up EOF case 0.0 if we had to wrap on the second increment. 
iThis is the low byte invalid code. It differs from the page starting with 
7 V13W2A in that the two instructions at V13W2A are swapped around and in 
; that the instruction at V13W2B was also changed. Everything else is the 
; same. 


=0 

V3BW2A: 

*Test for overflow, put RDBASE onto data bus. Q needs correcting (was negative) 
J/V3BW2B, COND/ZERO, DALU_READ, ALUA/RDBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


?Test for overflow, put RDBASE onto data bus. Q contains correct length. 
J/V3BW2C, COND/ZERO, DALU_READ, ALUA/RDBASE, ALUB/TIEMP, ALUFN/A, ALUDEST/NOP 

=0 

*Put Q-<length of RX> on data bus and write a negated length into buffer 

V3BW2B: J/V3BW2D, DALU_READ, BUFR_LOAD, ALUA/TWRAP , ALUB/TEMP, ALUFN/SUBQA, 
ALUDEST/NOP, CRY_1 


7We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/ SUBAB, ALUDEST/NOP 


=0 
7Put Q on data bus and write a negated length into buffer 
V3BW2C: J/V3BW2D, DALU_READ, BUFR_LOAD, ALUA/TEMP, ALUB/TEMP, ALUFN/Q, ALUDEST/NOP 


sWe hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


7;Do RDBASE := RDCUR, say a packet is available 
V3BW2D:; SET_STATUS, RX_PKT_AVAIL, ALUA/RDCUR, ALUB/RDBASE, ALUFN/A, ALUDEST/BRAM 


7Do RDCUR := TWRAP and vector 
JUMP_VECTOR, ALUA/TWRAP, ALUB/RDCUR, ALUFN/A, ALUDEST/BRAM 


. 
, 


, 
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;Vector Request 13 - EOF, low byte NOT valid 


7Here to finish up EOF case 0.0 if we did not wrap on the second increment. 
;This is the low byte invalid code. It differs from the page starting with 
; V1I3N2A in that the two instructions at V13N2A are swapped around and in 

7; that the instruction at V13N2B was also changed. Everything else is the 
; same, 


=0 
?Test for overflow, put RDBASE onto data bus. Q is negative and needs fixing. 
V3BN2A: J/V3BN2B, COND/ZERO, DALU_READ, ALUA/RDBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


;Test for overflow, put KDBASE onto data bus. Q is okay 
J/V3BN2C, COND/ZERO, DALU_READ, ALUA/RDBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


=0 

7Put Q-<RX length> on data bus and write a negated length into buffer 

V3BN2B: J/V3BN2D,DALU_READ, BUFR _LOAD, ALUA/TWRAP, ALUB/TEMP, ALUFN/SUBQA, 
ALUDEST/NOP,CRY_1 


7We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP 


=0 
7Put Q on data bus and write a negated length into buffer 
V3BN2C: J/V3BN2D,DALU_READ, BUFR_LOAD, ALUA/TEMP, ALUB/TEMP, ALUFN/Q, ALUDEST/NOP 


7We hit the deposit limit. Jump to abort code after preparing RDCUR wrap chk 
J/V13ABT, ALUA/RWRAP , ALUB/RDBASE, ALUFN/ SUBAB, ALUDEST /NOP 
;Do RDBASE := RDCUR, say a packet is available 


V3BN2D: SET_STATUS,RX_PKT_AVAIL, ALUA/RDCUR, ALUB/RDBASE, ALUFN/A, ALUDEST/BRAM 


7Do RDCUR := TEMP and vector 
JUMP_VECTOR, ALUA/TEMP, ALUB/RDCUR, ALUFN/A, ALUDEST/BRAM 
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+ VEX02 .MIC 22:33 20-PEB~1985 VECTOR REQUESTS 
7 1223 
7 1224 ;Vector Request 13 - Abort a packet. 
p 1229. . Pager asetse Seren s sce sssersres-se-s 
7.1226 ; 
7; 1227 ;All RX abort code comes here after doing (RWRAP - (RDBASE+1)) for RDCUR wrap 
7.1228 ; check. 
; 1229 =; 
; 1230 ;Branch on wrap, clear bad address line 
J 0235, 2360,0147,7777, 7577, 7760, 3400 31231 V13ABT: J/V13ABA, COND/ZERO,NI_BADRS_RST 
7.1232 
71233 =0 


7; 1234 ;No need to wrap, do RDCUR := RDBASE + 1. 
U 0236, 3406,1304,5217, 7777, 7760,3400 7 1235 V13ABA: JUMP_VECTOR, ALUA/RDBASE, ALUB/RDCUR, ALUFN/ADD2A, ALUDEST/BRAM, CRY_1 


7; 1236 
; 1237 ;Here to set RDCUR to TWRAP and vector 

U 0237, 3406,0334,5137, 7777, 7760, 3400 ; 1238 JUMP_VECTOR, ALUA/TWRAP, ALUB/RDCUR, ALUFN/A, ALUDEST/BRAM 
3; 1239 = 


7 1240 


3 VEX02.MCR[, ] 


+ VEX02.MIC 22:33 20-FEB-1985 


U 0240, 


3406,0147, 7777, 7777, 7760, 3400 


sess 
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;Vector Request 15 - TX abort 


;A transfer was aborted, presumably because of a collision. We turn off 
7; TX_REQ ENABLE and reset TWCUR. The IDLE routine will restart the NI. 


7Shut off NI and do TWCUR := TWBASE. 
7V..15: J/V15,CLEAR_ STATUS, TX_REQ ENABLE, ALUA/TWBASE, ALUB/TWCUR, ALUFN/A, 
i ALUDEST/BRAM 


;Waste a cycle to make sure TX_REQ ENABLE goes down 
Vis: JUMP_VECTOR 


. 
, 


; VEX02.MCR[,] 
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0241, 


0242, 


0243, 


0244, 


0246, 


0247, 


2420,1204,4627, 7777, 7760, 3400 


2442,1121, 6235, 7377, 7760, 3400 


3406,0314,4637, 7777, 7760, 7400 


2460,0147,7777, 7777, 7760, 3400 


3406, 0147, 7777, 7777, 7760,3400 


3406, 0334, 4537, 7777, 7760, 3400 
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;Vector Request 16 - Mport Load (RX buffer to Barrel Board) 


; 5 ins. normal, 3 ins. at finish 


7Do RWCUR-RWTOP to see if we already sent last data word 
7V..163 J/V16,ALUA/RWCUR, ALUB/RWTOP , ALUFN/SUBAB, ALUDEST/NOP,CRY_1 


7Branch on transfer done. Put RWCUR on data bus and increment RWCUR 
V16: J/V16A, COND/ZERO, DALU_READ, ALUA/RWCUR, ALUB/RWCUR, ALUFN/ADDZA, 
ALUDEST/BRAMA, CRY_1 


=0 

*Send data. Do RWCUR-RWRAP for wrap check 

V16A: J/V16B, MPORT_LOAD, BUFR_READ, ALUA/RWCUR, ALUB/RWRAP, ALUFN/SUBAB, 
ALUDEST/NOP,CRY_1 


;Done. Must clear XIPR, decrement RWCUR, and vector 
JUMP_VECTOR, CLEAR_XIPR, ALUA/RWCUR, ALUB/RWCUR, ALUFN/SUBZA, 
ALUDEST/BRAM, CRY_0 


*Branch on result of wrap check 
V16B: J/V16C, COND/ZERO 


=0 
;No wrap needed, just vector 
vi1éc: JUMP_VECTOR 


sHere to wrap RWCUR to TWRAP and vector 
JUMP_VECTOR, ALUA/TWRAP, ALUB/RWCUR, ALUFN/A, ALUDEST/BRAM 


+ VEX02.MCR[,] 
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2502,1121,1536, 6777, 7760, 3400 


2520,0147,7777, 7777, 7760,3400 
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3406,0347,1777, 7777, 7760, 3400 
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7Vector Request 17 - Mport Read (Barrel Board to transmit buffer) 


7We don’t need to pay attention to low byte valid in this routine since 
7; the massbus write termination routine in RCON handles that condition. 


+ Increment TDCUR and load address onto data bus 
hp ber ay Be J/V17, DALU_READ, ALUA/TDCUR, ALUB/TDCUR, ALUFN/ADD2ZB, ALUDEST/BRAMA, CRY 1 


*; Assert buffer load, mport read. Compute TWRAP-TDCUR to check for wrap 
V17: MPORT_READ, BUFR_LOAD, ALUA/TWRAP , ALUB/TDCUR, ALUFN/SUBAB, 
ALUDEST/NOP,CRY_1 


;Branch on previous result. If ZERO, then we need to wrap. 
J/V17A, COND/ZERO 

=0 

7Don’t need to wrap, return to jump vector table 

V17A: JUMP_VECTOR 


;Wrap deposit pointer (set to zero) and return to jump vector table. 
JUMP_VECTOR, ALUA/TEMP, ALUB/TDCUR, ALUFN/2, ALUDEST/BRAM 


’ 
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0361, 


0362, 


0363, 


0364, 


0365, 


0366, 


0367, 


2512,0337,7777,3777, 7760,3400 


2572,0134, 7667, 7777, 7760, 3400 


2622,0337,5777,3777, 7760, 3400 


0002, 0147, 7777, 3777, 7760, 3400 


2722,1121, 4177, 7777, 7760, 3400 


3212,0347,7777,3777, 7760, 3400 


4252, 0337, 5677, 3677, 7760, 3400 


4262,1204,1467, 7777, 7760, 3400 


a 
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-TOC “Register Control Board Requests" 


*RCON Request Dispatch Table 


=11110000 
R.FIELD: 


rRequests 0-7 require an XPORT_READ to complete 


700 - Ethernet mask data/address load 
7Read address or data from Xport into TEMP. 
J/RO0O, XPORT_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/D, ALUDEST/BRAM 


701 - Buffer data load 
7Put buffer address in SNIFF on data bus 
J/R01,DALU_READ, ALUA/SNIFF, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


702 - Buffer address load 
7Read address from Xport into SNIFF. 
J/R02, XPORT_READ, ALUA/TEMP, ALUB/SNIFF, ALUFN/D, ALUDEST/BRAM 


703 - Drive clear. 
J/INIT, XPORT_READ 


704 - Flush RX packet request 
*Do RWBASE-RDBASE for empty buffer check 
J/RO4, ALUA/RWBASE, ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP, CRY_1 


705 - 2901 Register Dump (formerly TX buffer flush) 
7Set our counter (TEMP) to zero and do obligatory XPORT_ READ 
J/ROS, XPORT_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/Z, ALUDEST/BRAM 


706 = Ethernet mask data read 

7Select a cell in the Address RAM, copy that address into ADDRM 
J/RO6,NI_MASK_ADRS_LOAD, XPORT_READ, ALUA/ADDRM, ALUB/ADDRM, ALUFN/D, 
ALUDEST/BRAM 


707 - Trailer load 
7Put TDCUR on data bus and increment it 


J/RO7, DALU_READ, ALUA/TDCUR, ALUB/TDCUR, ALUFN/ADDZA, ALUDEST/BRAMA, CRY_1 


r 
. 


U 


U 


U 
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0370, 


0371, 


0372, 


0373, 


0374, 


0375, 


0376, 


0377, 


3406,0147, 7777, 5777, 7760, 3400 


3406,0147,7777,5777, 7760, 3400 


4372,0134, 7567, 7777, 7760, 3400 


3406,0134, 7667,5777, 7760,3400 


4412,0021,0477,5777, 7760, 3400 


4602, 0134, 7567, 5777, 7760, 7400 


3406, 0147, 7773, 5777, 7760,3400 


4702,0134, 7567, 7777, 7760, 3400 
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we Sa te te es te Me te te Me Me Se te te te Me Ne 


MICRO 20(156) 


1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 
1380 
1381 
1382 
1383 
1384 
1385 
1386 
1387 
1388 
1389 
1390 
1391 
1392 


MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 37 
REGISTER CONTROL BOARD REQUESTS 


;RCON Request Dispatch Table (cont’d) 


7Requests 10-17 require XPORT_LOAD to complete 


710 - Error 
JUMP_VECTOR, XPORT_LOAD 


711 - Error 
JUMP_VECTOR, XPORT_LOAD 


712 - End massbus read 
7Put RWBASE on DBus. 
J/R12,DALU_READ, ALUA/RWBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


713 - Buffer pointer read 
JUMP_VECTOR, DALU_READ, XPORT_LOAD, ALUA/SNIFF, ALUB/TEMP, ALUFN/A, 
ALUDEST/NOP 


714 - End massbus write 
7;Compute TDCUR-TDBASE-1 (uncorrected pkt length) and put in Q register. 
; Do XPORT_LOAD to satisfy micro~machine. 
J/R14, XPORT_LOAD, ALUA/TDCUR, ALUB/TDBASE, ALUFN/SUBAB, ALUDEST/Q, CRY_0 


715 - Start massbus read 

7Clear XIPR and put RWBASE on DBus. Do obligatory XPORT_LOAD. 
J/R15,DALU_READ, XPORT_LOAD, CLEAR_XIPR, ALUA/RWBASE, ALUB/TEMP, ALUFN/A, 
ALUDEST/NOP 


316 - Slave ID read 
JUMP_VECTOR, SLIDE_READ, XPORT_LOAD 


717 - Packet status read 
7Put RWBASE on data bus 
J/R17,DALU_READ, ALUA/RWBASE, ALUB/ TEMP, ALUFN/A, ALUDEST/NOP 


7 VEXO2.MCR[,] 
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U 0251, 


U 0254, 


Y 0255, 


WU 0256, 


2542,0134, 5667, 7677, 7760, 3400 


2552,0134, 7767, 7757, 7760, 3400 


2562,0134, 5667, 7677, 7760, 3400 


3406,0147, 7777, 5737, 7760,3400 
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7RCON Request 00 - Ethernet Address Load 


*Read data from Xport into TEMP. 
7R..00: J/ROO, XPORT_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/D, ALUDEST/BRAM 


7Use ADDRM to select address mask. 
ROO: NI_MASK_ADRS_LOAD, DALU_READ, ALUA/ADDRM, ALUB/ADDRM, ALUFN/A, ALUDEST/NOP 


;Load data into the address mask. 
NI_MASK_DATA_LOAD, DALU_READ, ALUA/TEMP, ALUB/ TEMP, ALUFN/A, ALUDEST/NOP 


7Re-select address mask 
NI_MASK_ ADRS LOAD,DALU_ READ, ALUA/ADDRM, ALUB/ADDRM, ALUFN/A, ALUDEST/NOP 


*Read data from address mask, then vector 
JUMP_VECTOR,NI_MASK_DATA_READ, XPORT_LOAD 


7 VEX02 .MCR(,] MICRO 20(156) MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 39 


* VEX02 MIC 22:33 20-FEB-1985 REGISTER CONTROL BOARD REQUESTS 
31413 
7 1414 ;RCON Request 01 - Buffer Data Load 
P1415) Seaeerstrssseeartre rset sar ssere rss 
7 1416 ; 4 ins 
71417 


7 1418 ;We write data from the Xport into the buffer and read it back again. 
7; 1419 ; We assume that SNIFF has been set up previously. Since SNIFF is the 
7; 1420 ; same as RWTOP, no massbus read must be in progress! 

1421 

1422 ;Put buffer address in SNIFF on data bus 

1423) ;R..01: J/RO1,DALU_ READ, ALUA/SNIFF, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 

1424 

1425 ;Write from Xport into buffer 

1426 ROl1: XPORT_READ, BUFR_LOAD 


U 0257, 2602,0147,7776,3777, 7760, 3400 


Sd a es eT i? 


1427 
1428 ;Put buffer address on data bus again 
U 0260, 2612,0134, 7667, 7777, 7760, 3400 7) 1429 DALU_READ, ALUA/ SNIFF, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 
7 1430 
7; 1431 ;Read from buffer to Xport, then vector 
U 0261, 3406,0147, 7775, 5777, 7760,3400 7 1432 JUMP_VECTOR, BUFR_READ, XPORT_LOAD 


1433 
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0262, 


0264, 


0265, 


0263, 


0266, 


0270, 


0271, 


0267, 


2640, 2134, 7667, 7777, 7760, 3400 


2632,0301,5567, 7777, 7760, 3400 


3406, 0147, 7775,5777, 7760, 3400 


2662,1021, 6267, 7777, 7760, 3400 


2700,2000, 7527, 7777, 7760, 3400 


2672,0332, 5667, 7777, 7760,3400 


2672, 0134, 5667, 7777, 7760, 3400 


3406, 0147, 7775,5777, 7760, 3400 
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7RCON Request 02 - Buffer Address Load 


7 Abs is 3 ins, Rel is 7 or 8 


;Load an address from Xport into SNIFF, read back ram buffer data. 
; If the address is negative, then it is absolute, otherwise it is relative. 
7; No range checking is done for either type of pointer. 


sRead address from Xport into SNIFF. 
7R..02: J/RO2,XPORT_ READ, ALUA/TEMP, ALUB/SNIFF,ALUFN/D, ALUDEST/BRAM 


*Branch on SNIFF being negative. Do some speed-up by putting SNIFF on DBus 
RO2: J/RO2A, COND/NEG, DALU_READ, ALUA/ SNIFF, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


=0 

sAddress was non-negative, i.e. relative. Do SNIFF := RWBASE + SNIFF. 
*Note that a relative offset of zero gives the user the length word. 

; This is to be consistent with the way that the massbus read works. 
RO2A: J/R02B, DEBUG, ALUA/RWBASE, ALUB/SNIFF, ALUFN/ADDAB, ALUDEST/BRAM 


rAddress was negative, i.e. absolute. Load Xport and vector 
JUMP_VECTOR, BUFR_READ, XPORT_LOAD 


7Do SNIFF - RWRAP to test for wrap, result to Q-reg 
RO2B: DEBUG, ALUA/ SNIFF, ALUB/RWRAP , ALUFN/SUBAB, ALUDEST/Q, CRY_1 


sTest for result being negative, do Q + TWRAP to Q-reg 
J/RO2C, COND/NEG, DEBUG, ALUA/TWRAP, ALUB/ TEMP, ALUFN/ADDAQ, ALUDEST/Q 
=0 
;Result was non-negative, 1.e., we wrapped, copy Q to SNIFF and to data bus 
RO2C: J/RO2D, DALU_READ, ALUA/SNIFF, ALUB/SNIFF, ALUFN/Q, ALUDEST/ BRAM 


7Result was negative, i.e. we did not wrap. Put SNIFF on data bus 
J/R02D, DALU_READ, ALUA/SNIFF, ALUB/SNIFF, ALUFN/A, ALUDEST/NOP 

;Write buffer data to Xport and vector 

RO2D: JUMP_VECTOR, XPORT_LOAD, BUFR_READ 


’ 


“ 
e 
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2740, 0134, 7567, 7777, 7760, 3400 


2732,0037, 7775, 7777, 7760, 3400 


3406,0147, 7777, 3777, 7760, 3400 


2760,3322,6777,3777,7760, 3400 


3002, 0300, 6577, 7777, 7760, 3400 
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3012,1021, 6337, 7777, 7760, 3400 


3020, 2000, 7537, 7777, 7760, 3400 


3042,0332,6777, 7777, 7760, 3400 


3122,0121, 6717, 7777, 7760, 3400 
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;RCON Request 04 - RX Flush Packet 


3; 12 or 13 ins 


; Flush the current packet in the RX buffer. Most of this code is common to 
: End Massbus Read as well (it enters at RO4A). Since we know the registers 
; RDLIMIT, RWBASE, and RWCUR end up in that order, we take a number of short 
, cuts. 


7Do RWBASE-RDBASE for empty buffer check 
7R..04: J/RO4, ALUA/RWBASE, ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP, CRY_1 


?Branch on empty buffer check. Put RWBASE on Dbus. 
R04: J/RO4AA, COND/ZERO, DALU_READ, ALUA/RWBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


=0 
7Something in buffer, read length word into Q-reg. 
RO4AA: J/RO4AB, BUFR_READ, ALUA/TEMP , ALUB/ TEMP, ALUFN/D, ALUDEST/Q 


sNothing in buffer, exit now before we mess up our pointers. ACK the R-Board. 
JUMP_VECTOR, XPORT_READ 


;Branch on previous result negative. Do RDLIMIT := -Q, just in case. 

; Do obligatory XPORT_READ. 

RO4AB: J/RO4A,COND/NEG, XPORT_ READ, ALUA/TEMP, ALUB/RDLIMIT, ALUFN/SUBZQ, 
ALUDEST/BRAM, CRY_1 


=0 
;Length is positive. Do RWBASE + BUFFER[RWBASE], put result in RDLIMIT 
RO4A: J/R04B, ALUA/RWBASE, ALUB/RDLIMIT, ALUFN/ADDAQ, ALUDEST/BRAM 


;Length is negative (odd). Compute RDLIMIT as above. 
J/R04B, ALUA/RWBASE, ALUB/RDLIMIT, ALUFN/ADDAB, ALUDEST/BRAM 


;Do RDLIMIT-RWRAP to see if we need to wrap, result to Q 
RO4B: ALUA/RDLIMIT, ALUB/RWRAP , ALUFN/SUBAB, ALUDEST/Q,CRY_1 


;Branch on wrap. If negative, then RDLIMIT is okay as is. Do Q := TWRAP + Q. 
J/RO4C, COND/NEG, ALUA/TWRAP, ALUB/ TEMP, ALUFN/ADDAQ, ALUDEST/Q 


=0 
;RDLIMIT wrapped. Do RDLIMIT := Q and join the wrap code. 
RO4C: J/RO4RDW, ALUA/TEMP, ALUB/RDLIMIT, ALUFN/Q, ALUDEST/BRAM 


sHere if RDLIMIT is not beyond end of buffer. Do wrap check for RWBASE before 
+ actually setting RWBASE. Wrap check is RWRAP - (RDLIMIT + 1). 
J/RO4RDN, ALUA/RWRAP , ALUB/RDLIMIT, ALUFN/ SUBAB, ALUDEST/NOP 


, 
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3052,1304,3737, 7777, 7760,3400 
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;RCON Request 04 - RX Flush Packet - RDLIMIT wrapped 


7Here if RDLIMIT wrapped. We don’t have to check wrap again 


*Do RWBASE := RDLIMIT + 1 
RO4RDW: ALUA/RDLIMIT, ALUB/RWBASE, ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 


7Do RWCUR := RWBASE + 1 
ALUA/RWBASE, ALUB/RWCUR, ALUFN/ADDZA, ALUDEST/BRAM,CRY_ 1 


7Do RWBASE-RDBASE to check for more packets 
ALUA/RWBASE, ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP,CRY_1 


7Branch on empty check 
J/RO4RWA, COND/ZERO 
=0 
sHere if more packets available. Just vector 
RO4RWA: JUMP_VECTOR 


7No more packets. Clear RX_PKT_AVAIL and vector 
JUMP_VECTOR, CLEAR_STATUS,RX_PKT_ AVAIL 


’ 


2 
’ 


U 


+ VEX02.MCR[, ] 
VEX02 MIC 


0312, 


0314, 


0315, 


0313, 


0316, 


0317, 


0320, 


0322, 


0323, 


0324, 


0325, 


22:33 20-FEB-1985 


3140,1304,3737, 7777, 7760, 3400 


3202, 0121,3717, 7777, 7760, 3400 


3132,1121, 4137, 7777, 7760, 3400 


3160, 0334, 3537, 7777, 7760, 3400 


3406,1304,4577, 7777, 7760, 3400 


3406,1304, 4577, 7777, 7360, 3400 


3220,1121, 4177, 7777, 7760, 3400 


3240,1304, 4577, 7777, 7760, 3400 


3240,0334, 4537, 7777, 7760, 3400 


3406,0147, 7777, 7777, 7760, 3400 


3406, 0147, 7777, 7777, 7360, 3400 


Ty 


a te ss Se te te te te Se Se fe Ne te Se te te te te te te te te te 


St i i i ii eT 
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1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1573 
1574 
1575 
1576 
1577 
1578 
1579 
1580 
1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
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7RCON Request 04 - RX Flush Packet - RDLIMIT did not wrap 


7Here if RDLIMIT did not wrap. 


7;Branch on RWBASE wrap check. Do RWBASE := RDLIMIT + 1 just in case, 

RO4RDN: J/RO4RNA, COND/ZERO, ALUA/RDLIMIT, ALUB/RWBASE, ALUFN/ADDZA, ALUDEST/BRAM, 
CRY 1 

=0 

;RWBASE did not wrap and so is valid. Prepare RWCUR wrap check which is 

; RWRAP - (RWBASE + 1). 

RO4RNA: J/RO4RND, ALUA/RWRAP , ALUB/RWBASE, ALUFN/SUBAB, ALUDEST/NOP 

;RWBASE wrapped. Do TWRAP (=RWBASE) - RDBASE for packet avail check, 


J/RO4RNB, ALUA/TWRAP, ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP,CRY_1 


;Here if RWBASE wrapped 


7Branch on packet avail check. Do RWBASE := TWRAP. 
RO4RNB: J/RO4RNC,COND/ZERO, ALUA/TWRAP, ALUB/RWBASE, ALUFN/A, ALUDEST/BRAM 


=0 
;Packets still available. Do RWCUR := RWBASE + 1, then vector 
RO4RNC: JUMP VECTOR, ALUA/RWBASE, ALUB/RWCUR, ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 


7No more packets. Clear RX_PKT AVAIL, do RWCUR := RWBASE + 1, then vector 
JUMP_VECTOR, CLEAR_STATUS,RX_PKT_ AVAIL, ALUA/RWBASE, ALUB/RWCUR, 
ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 


rHere if RWBASE did not wrap 


7Branch on RWCUR wrap check. Do RWBASE - RDBASE to pkt avail check 
RO4RND: J/RO4RNE, COND/ZERO, ALUA/RWBASE, ALUB/RDBASE, ALUFN/SUBAB, ALUDEST/NOP, 
CRY 1 


=0 

;RWCUR did not wrap. Do RWCUR := RWBASE + 1, branch on pkt avail check 

RO4RNE: J/RO4RNF, COND/ZERO, ALUA/RWBASE, ALUB/RWCUR, ALUFN/ADDZA, ALUDEST/BRAM, 
CRY 1 


;RWCUR wrapped. Do RWCUR := TWRAP, branch on pkt avail check 
J/RO4RNF, COND/ZERO, ALUA/TWRAP, ALUB/RWCUR, ALUFN/A, ALUDEST/BRAM 

=0 

7More packets waiting, 

RO4RNF: JUMP_VECTOR 


just vector 


;No more packets, clear RX_PKT_AVAIL and vector 
JUMP_VECTOR, CLEAR_STATUS,RX_PKT_AVAIL 


, 
. 
’ 


qaqacd 


Gaagaaqaadca 


VEX02.MCR[, ] 
VEX02 .MIC 


0321, 
0326, 
0327, 
0330, 
0331, 
0332, 
0333, 
0334, 
0335, 
0336, 
0337, 
0400, 
0401, 
0402, 
0403, 
0404, 
0405, 
0406, 
0407, 
0410, 
0411, 
0412, 
0413, 
0414, 
0415, 
0416, 
0417, 
0420, 
0421, 
0422, 
0423, 
0424, 


22:33 20-FEB-1985 


3262,1204, 7767, 7777, 7760, 3400 
3272,0134, 7406, 7777, 7760,3400 
3302,1204,7767, 7777, 7760, 3400 
3312,0134, 7426, 7777, 7760, 3400 
3322,1204,7767, 7777, 7760, 3400 
3332, 0134, 7446, 7777, 7760, 3400 
3342,1204, 7767, 7777, 7760, 3400 
3352,0134, 7466, 7777, 7760, 3400 
3362,1204, 7767, 7777, 7760,3400 
3372,0134, 7506, 7777, 7760, 3400 
4002,1204, 7767, 7777, 7760, 3400 
4012, 0134, 7526, 7777, 7760, 3400 
4022,1204, 7767, 7777, 7760, 3400 
4032, 0134, 7546, 7777, 7760, 3400 
4042,1204, 7767, 7777, 7760, 3400 
4052,0134, 7566, 7777, 7760, 3400 
4062,1204,7767, 7777, 7760, 3400 
4072,0134, 7606, 7777, 7760, 3400 
4102,1204, 7767, 7777, 7760, 3400 
4112,0134, 7626, 7777, 7760, 3400 
4122,1204,7767, 7777, 7760, 3400 
4132,0134, 7646, 7777, 7760, 3400 
4142,1204,7767, 7777, 7760, 3400 
4152, 0134, 7666, 7777, 7760, 3400 
4162,1204, 7767, 7777, 7760, 3400 
4172,0134, 7706, 7777, 7760, 3400 
4202,1204, 7767, 7777, 7760,3400 
4212, 0134,7726, 7777, 7760, 3400 
4222,1204, 7767, 7777, 7760, 3400 
4232,0134, 7746, 7777, 7760, 3400 
4242,1204, 7767, 7777, 7760, 3400 
3406,0134, 7766, 7777, 7760,3400 


Ne Ne Ne Se Se Me Ne Se Se Se te Se Se Me Se Ns te Se Me Me te te Se te Me 
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1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1613 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1623 
1624 
1625 
1626 
1627 
1628 
1629 
1630 
1631 
1632 
1633 
1634 
1635 
1636 
1637 
1638 
1639 
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652 
1653 
1654 
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7RCON Request 05 - Dump 2301 Registers to RAM 


’ 


7; 33 instructions 
;We write 2901 registers 0-17 into data RAM locations 0-17. 
7 solely for debugging the VIA board microcode. 

7 be TX packet flush, 


7Some useful macros. 


a thoroughly useless function, 


NEXT_REG selects a RAM address and DUMP_REG writes the 


7 corresponding register into that RAM location. 


NEXT_REG 
DUMP_REG 


7Set our counter (TEMP) to zero and do obligatory XPORT READ 


This is meant 


This RCON vector used to 


“DALU_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/ADDZA, ALUDEST/BRAMA, CRY_1" 
"DALU_READ, BUFR_LOAD, ALUB/TEMP, ALUFN/A, ALUDEST/ NOP" 


7R..05: J/RO5, XPORT_ READ, ALUA/TEMP, ALUB/TEMP, ALUFN/2Z, ALUDEST/BRAM 


ROS: 


NEXT_REG 


DUMP_REG, ALUA/0 


NEXT REG 


;Select location 0 in data RAM 


FECC ccs 


DUMP_REG, ALUA/1 


NEXT_REG 


DUMP_REG, ALUA/2 


NEXT REG 


DUMP_REG, ALUA/3 


NEXT_REG 


DUMP_REG, ALUA/4 


NEXT_REG 


DUMP_REG, ALUA/5 


NEXT_REG 


DUMP_REG, ALUA/6 


NEXT_REG 


DUMP_REG, ALUA/7 


NEXT_REG 


DUMP_REG, ALUA/10 


NEXT_REG 


DUMP_REG, ALUA/11 


NEXT_REG 


DUMP_REG, ALUA/12 


NEXT_REG 


DUMP_REG, ALUA/13 


NEXT_REG 


DUMP_REG, ALUA/14 


NEXT_REG 


DUMP_REG, ALUA/15 


NEXT_REG 


DUMP_REG, ALUA/16 


NEXT_REG 


JUMP_VECTOR, DUMP_REG, ALUA/17 


;Write Register 0 to location 0 


3 VEX02.MCR[,] 


3 VEX02.MIC 22:33 20-FEB-1985 


U 0425, 


3406,0147, 7777, 5737, 7760,3400 
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1655 
1656 
1657 
1658 
1659 
1660 
1661 
1662 
1663 
1664 
1665 
1666 
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7;RCON Request 06 - Ethernet Address Read 


7Select 
7R..06: 


a cell in the Address RAM, copy that address into ADDRM 
J/RO6,NI_MASK_ADRS_ LOAD, XPORT_READ, ALUA/ADDRM, ALUB/ADDRM, ALUFN/D, 
ALUDEST/BRAM 


;Load Xport with address RAM data, then vector 


RO6: 


JUMP_VECTOR,NI_ MASK DATA_READ, XPORT_LOAD 


, 


. 
, 


U 


VEX02.MCR[, ] 
VEX02.MIC 22:33 20-FEB-1985 
0426, 4272,1121,1536, 3777, 7760, 3400 


0427, 


0430, 


0431, 


0432, 


0433, 


0434, 


0435, 


0436, 


4300,0021,0477, 7777,7760, 3400 


4340, 2300, 7537, 7777, 7760,3400 


4322,0247,1427, 7777, 7760, 3400 


4332,0021, 0526, 7777, 7760, 3400 


4522, 0320,3157, 7777, 7760, 3400 


4502, 0232, 7427, 7777, 7760, 3400 


4362,0134, 7427, 7777, 7760, 3400 


4512,0134, 7766, 7777, 7760,3400 


Se en a a 
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1667 
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680 
1681 
1682 
1683 
1684 
1685 
1686 
1687 
1688 
1689 
1690 
1691 
1692 
1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
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7RCON Request 07 - Trailer Load and End Massbus Write 


; 11 or 12 ins 


7Read 16 bits of trailer data from Xport to buffer, then join code in RCON 14 

7 to finish a massbus write. For speed we duplicate some instructions. 

; NOTE WELL: We round up any odd byte count if trailer mode is used, 

7; Only PUP uses this oddity and it is a word-based, not a byte-based, protocol. 


7Put TDCUR on data bus and increment it 
7R..078 J/RO7,DALU_READ, ALUA/TDCUR, ALUB/TDCUR, ALUFN/ADD2A, ALUDEST/BRAMA,CRY_1 


7Read trailer from XPORT into buffer. Do TDCUR-TWRAP for wrap check 
RO7: XPORT_READ, BUFR_LOAD, ALUA/TWRAP, ALUB/TDCUR, ALUFN/SUBAB, ALUDEST/NOP, 
CRY 1 


rBranch on wrap check. Compute TDCUR-TDBASE-1 (pkt) length, result to Q-reg 
J/RO7A, COND/ZERO, ALUA/TDCUR, ALUB/TDBASE, ALUFN/SUBAB, ALUDEST/Q, CRY_0 

=0 

7No wrap. Branch on whether length is negative. Do TEMP := TWRAP + Q-reg. 

ROTA: J/RO7C, COND/NEG, ALUA/TWRAP, ALUB/ TEMP, ALUFN/ADDAQ, ALUDEST/BRAM 


;Wrap TDCUR, load TDBASE onto bus, then go make up for lost time. 
J/R07B, DALU_READ, ALUA/TDBASE, ALUB/TDCUR, ALUFN/Z, ALUDEST/BRAMA 
rCompute length (TWRAP - TDBASE ~- 1) and write to buffer and Q-reg. 
RO7B: BUFR_LOAD, DALU_READ, ALUA/TWRAP, ALUB/TDBASE, ALUFN/SUBAB, ALUDEST/Q,CRY_0 


*Do TBLEFT := TBLEFT - LENGTH - 1, join RCON 14 code. 
J/R14D, ALUA/TBLEFT, ALUB/TBLEFT, ALUFN/SUBAQ, ALUDEST/BRAM, CRY_0 
=0 
rLength in Q-reg is okay, copy it to TEMP and join R04 code. Put TDBASE on Dbus 
ROTC: J/R14C, DALU_READ, ALUA/TDBASE, ALUB/TEMP, ALUFN/Q, ALUDEST/BRAMA 


;Length in TEMP is correct. Put TDBASE on Dbus. 
J/RO7D, DALU_READ, ALUA/TDBASE, ALUB/TEMP, ALUFN/A, ALUDEST/ NOP 
;Write the length word, then join R04 code 
RO7D: J/R14CC, BUFR_LOAD, DALU_READ, ALUA/TEMP, ALUB/ TEMP, ALUFN/A, ALUDEST /NOP 


> VEX02.MCR{,] 


3s VEX02.MIC 22:33 20-FEB-1985 


W 0437, 


U 0440, 


4402,0037,7775, 7777, 7760, 7400 


2760,3322,6777,5777, 7760, 3400 


se se se 
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1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
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1723 
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1725 
1726 
1727 
1728 
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7;RCON Request 12 - End Massbus Read 


11 or 12 ins 


sEnd Massbus Read and RX packet flush differ only in the way they ack the 


, 


; R-Board’s Demand request. After doing the XPORT_LOAD here, we join the RX 


packet flush code at RO4A, 


7;Put RWBASE on DBus. 
7R..12: J/R12,DALU_READ, ALUA/RWBASE, ALUB/TEMP, ALUF'N/A, ALUDEST/NOP 


;Read length word into Q-reg. Also make sure that XIPR is cleared in 


case we received this shutdown request before V16 completed. 


R12: BUFR_READ, CLEAR_XIPR, ALUA/TEMP, ALUB/TEMP, ALUFN/D, ALUDEST/Q 


;Branch on previous result negative. Do RDLIMIT := -Q, just in case, 


Do obligatory XPORT_LOAD and join common RX buffer flush code. 
J/RO4A, COND/NEG, XPORT_LOAD, ALUA/TEMP, ALUB/RDLIMIT, ALUFN/SUB2Q, 
ALUDEST/BRAM, CRY_1 


’ 


U 


VEX02.MCR[, ] 
; VEX02.MIC 


0441, 


0442, 


0443, 


0444, 


0445, 


0446, 


0447, 


0450, 


0451, 


0452, 


0454, 


0455, 


0453, 


0456, 


0457, 


22:33 20-FEB-1985 


4420, 2300, 7537, 7777, 7760, 3400 


4441,4147, 7777, 7777, 7760, 3400 


4441,4034,7777, 7777, 7760, 3400 


4502,1222, 7427, 7777, 7760, 3400 


4502, 0232, 7427, 7777, 7760,3400 


4502,1222, 7427, 7777, 7760,3400 


4502, 0232, 7427, 7777, 7760,3400 


4512,0232,7766, 7777, 7760,3400 


4522,0311,3377, 7777, 7760, 3400 


4540, 2334,0477, 7777, 7760,3400 


4532,0121,1537, 7777, 6760, 3400 


4532,0121,1537, 7777, 6770, 3400 


4560,0147,7777, 7777, 7760,3400 


3406,1304,1477, 7777, 7760, 3400 


3406,0347,1477, 7777, 7760, 3400 


Se ee Pe a Pa a a er 


we Me Me owe 


Se Ne Se Ma Se te 
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1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 
1770 
1771 
1772 
1773 
1774 
1775 
1776 
1777 
1778 
1779 
1780 
1781 
1782 
1783 
1784 
1785 
1786 
1787 
1788 
1789 
1790 
1791 
1792 
1793 
1794 
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7RCON Request 14 - End Massbus Write 


7We are joined by the trailer load code at labels R14B and R14D. 


7Compute TDCUR-TDBASE-1 (uncorrected pkt length) and put in Q register 
7 Do XPORT_LOAD to satisfy micro-machine. 
7R..14: J/R14,XPORT_LOAD, ALUA/TDCUR, ALUB/TDBASE, ALUFN/SUBAB, ALUDEST/Q, CRY_0 


*Branch on whether uncorrected length is negative. Do TEMP := TWRAP + Q-reg 
R14: J/R14AA, COND/NEG, ALUA/TWRAP , ALUB/ TEMP, ALUFN/ADDAQ, ALUDEST/BRAM 


=0 
sLength was non-negative, so Q-reg has good length. Branch on low byte valid. 
7The double COND is a crock because we ran out of wires. We ignore the 
; TX_AVAIL_L signal and just duplicate code to handle low byte valid. 
R14AA: J/R14A,COND/TX_AVAIL_L.MBUS VALID 
;Length was negative, so copy corrected value from TEMP to Q-reg. Branch on 
7; low byte valid as above. 
J/R14A, COND/TX_AVAIL_L.MBUS VALID, ALUA/ TEMP, ALUB/TEMP, ALUFN/A, ALUDEST/Q 
=00 
;Last byte is not valid. Negate the length to TEMP, put TDBASE on bus. 
R14A: J/R14C, DALU_READ, ALUA/TDBASE, ALUB/TEMP, ALUFN/SUBZQ, ALUDEST/BRAMA, CRY_1 


7Put TDBASE on the data bus. Put length to be written in TEMP. 
R14B: J/R14C, DALU_READ, ALUA/TDBASE, ALUB/TEMP, ALUFN/Q, ALUDEST/BRAMA 


;(Duplicate) Last byte not valid. Negate the length to TEMP, put TDBASE on bus. 
J/R14C, DALU_READ, ALUA/TDBASE, ALUB/TEMP, ALUFN/SUBZQ, ALUDEST/BRAMA, CRY_1 


7 (Duplicate) Put TDBASE on the data bus. Put length to be written in TEMP. 
J/R14C, DALU_READ, ALUA/TDBASE, ALUB/TEMP, ALUFN/Q, ALUDEST/BRAMA 


*Write length word to buffer. Copy Q (positive length) to TEMP 


R14C: BUFR_LOAD, DALU_READ, ALUA/TEMP, ALUB/ TEMP, ALUFN/Q, ALUDEST/BRAMA 
;Compute TBLEFT := TBLEFT ~ LENGTH ~- 1. 
R14CC: ALUA/TEMP, ALUB/TBLEFT, ALUFN/SUBBA, ALUDEST/BRAM, CRY_0 


?Check if TBLEFT is now negative. Do TDBASE := TDCUR 
R14D: J/R14E, COND/NEG, ALUA/TDCUR, ALUB/TDBASE, ALUFN/A, ALUDEST/BRAM 


=0 

;Here if we must reset TX_BUFR_AVAIL_L. Do TWRAP-TDCUR~-1 for wrap check. 

R14E: J/R14F, CLEAR_STATUS, TX_BUFR_AVAIL_L, ALUA/TWRAP, ALUB/TDCUR, ALUFN/SUBAB, 
ALUDEST/NOP, CRY_0 


;Here if TBLEFT is negative. Do TWRAP-TDCUR-1 for wrap check, 
J/R14F, SET_STATUS, TX_BUFR_AVAIL_L, ALUA/TWRAP, ALUB/TDCUR, ALUFN/SUBAB, 
ALUDEST/NOP, CRY_0 


?Branch on above result 
R14F: J/R14G, COND/ZERO 


=0 
yIncrement TDCUR and vector 
R14G: JUMP_VECTOR, ALUA/TDCUR, ALUB/TDCUR, ALUFN/ADDZA, ALUDEST/BRAM, CRY_1 


7Wrap TDCUR and vector 
JUMP_VECTOR, ALUA/TDCUR, ALUB/TDCUR, ALUFN/Z, ALUDEST/BRAM 


7 1795 


VEX02 .MCR[,] 
; VEX02.MIC 22:33 20-FEB-1985 


0460, 


0461, 


0462, 


0463, 


0464, 


0465, 


0466, 


0467, 


4612,0037, 7775, 7377, 7760, 3400 


4620,3322,5777, 7777, 7760, 3400 


4642,1300,5577, 7777, 7760, 3400 


4642,1301,5577, 7777, 7760, 3400 


4652,1021, 6277, 7777, 7760, 3400 


4660, 2000, 7537, 7777, 7760, 3400 


3406, 0332,5777, 7777, 7760, 3400 


3406,0147, 7777, 7777, 7760, 3400 


sa te Se Me 
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1796 
1797 
1798 
1799 
1800 
1801 
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1808 
1809 
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7;RCON Request 15 - Start Massbus Read 


7;We compute RWTOP and clear XIPR. We don’t worry about low byte valid 
; boundary conditions when sending data to the massbus. We do the first 
7 MPORT_LOAD here -- it is the initial 16 bits of padding. 


7Clear XIPR and put RWBASE on DBus. Do obligatory XPORT LOAD. 
7R..15: J/R15,DALU_READ, XPORT_LOAD, CLEAR _XIPR,ALUA/RWBASE, ALUB/TEMP, ALUFN/A, 
; ALUDEST/NOP 


7Read length into Q-reg. The MPORT_LOAD sends the l6-bits of padding to 
7; the -20 (see the monument). 
Ris: MPORT_LOAD, BUFR_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/D, ALUDEST/Q 


7Branch on previous result negative. Do RWTOP := -Q, just in case. 
J/R15A, COND/NEG, ALUA/TEMP, ALUB/RWTOP, ALUFN/SUB2ZQ, ALUDEST/BRAM, CRY_1 


=0 
;Length is positive. Do RWBASE + BUFFER[RWBASE] + 1, put result in RWTOP. 
R15A: J/R15B, ALUA/RWBASE, ALUB/RWTOP, ALUFN/ADDAQ, ALUDEST/BRAM, CRY_1 


;Length is negative (odd). Compute RWTOP as above. 
J/R15B, ALUA/RWBASE, ALUB/RWTOP, ALUFN/ADDAB, ALUDEST/BRAM, CRY_1 


;Do RWTOP-RWRAP to see if we need to wrap, result to Q 
R1L5B: ALUA/RWTOP, ALUB/RWRAP, ALUFN/SUBAB, ALUDEST/Q, CRY_1 


;Branch on wrap. If negative, then RWTOP is okay as is. Do Q := TWRAP + Q. 
J/R15C, COND/NEG, ALUA/TWRAP, ALUB/TEMP, ALUFN/ADDAQ, ALUDEST/Q 


=0 
7Do RWTOP := Q and vector 
R15C: JUMP_VECTOR, ALUA/TEMP, ALUB/RWTOP, ALUFN/Q, ALUDEST/BRAM 


;Here if RWTOP is not beyond end of buffer. Just vector, 
JUMP_VECTOR 


VEX02.MCR[, ] MICRO 20(156) 


VEX02 .MIC 22:33 20-FEB-1985 


0470, 4712,0337,7775, 7777, 7760,3400 


0471, 4720,3004,7777, 7777, 7760,3400 


0472, 3406,1100,7767,5777, 7760, 3400 


0473, 4742,1324,7777,7777,7760,3400 


0474, 3406,1101,7767,5777, 7760, 3400 


NUMBER OF MICRO WORDS USED: 
D WORDS= 0 
U WORDS= 317 


END 


i iT i! eT ee eT TY 


ss “es ts fe 


1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1847 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
1860 
1861 
1862 
1863 
1864 
1865 
1866 
1867 
1868 
1869 
1870 


MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 50 
REGISTER CONTROL BOARD REQUESTS 


7RCON Request 17 - Packet status read 


7For the 10MB Ethernet all we return is the packet length of the current pkt. 


7The length is stored as a word count. If that count is positive, we add 
; one, the double it. If that count is negative (an odd byte count), we 


7 negate it and add one. The extra one in both cases accounts for the extra 


7 16 bits of initial padding we give to the user. 


7Put RWBASE on data bus 
7R..17: J/R17,DALU_READ, ALUA/RWBASE, ALUB/TEMP, ALUFN/A, ALUDEST/NOP 


rRead length from buffer into TEMP 
R17: BUFR_READ, ALUA/ TEMP, ALUB/TEMP, ALUFN/D, ALUDEST/BRAM 


;Branch on length being negative (odd count). Do Q := TEMP + 1 
J/R17A, COND/NEG, ALUA/TEMP, ALUB/ TEMP , ALUFN/ADD2A, ALUDEST/Q, CRY_1 
=0 
;Length is an even count. Load Xport with TEMP + Q + 1 and vector 
R17A: JUMP_VECTOR, XPORT_LOAD, DALU_READ, ALUA/TEMP, ALUB/TEMP, ALUFN/ADDAQ, 
ALUDEST/NOP, CRY_1 


;Length is odd. Make it positive. TEMP := 0 - TEMP. 
J/R17B, ALUA/TEMP, ALUB/TEMP, ALUFN/SUBAZ, ALUDEST/BRAM, CRY_1 


;Load XPORT with TEMP+TEMP+1 and vector 
R17B: JUMP_VECTOR, XPORT_LOAD, DALU_READ, ALUA/TEMP, ALUB/ TEMP, ALUF'N/ADDAB, 
ALUDEST/NOP, CRY_1 


? VEX02.MCR[, ] MICRO 20(156) MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 51 
? CROSS REFERENCE LISTING 


(U) ALUA 74 #¢ 1623 1625 1627 1629 1631 1633 1635 1637 1639 1641 1643 

1645 1647 1649 1651 1653 

ADDRM 89 # 1348 1402 1408 

MSIZE 93 # 397 

RDBASE 84 # 910 931 947 1032 1035 1068 1071 1154 1157 1194 1197 
1235 

RDCUR 86 # 681 807 814 819 824 830 853 859 866 879 991 
1055 1090 1104 1177 1217 

RDLIMIT 91 # 902 923 958 965 1012 1021 1129 1138 1510 1531 1556 

RWBASE 83 # 1340 1369 1382 1390 1453 1487 1503 1506 1534 1537 1575 
1578 1585 1590 1818 1821 

RWCUR 85 # 694 1265 1270 1274 

RWRAP 90 # 389 391 393 431 685 906 914 927 935 955 968 
980 998 1043 1051 1079 1086 1111 1165 1173 1206 1213 1521 
1562 

RWTOP 87 # 1825 

SNIFF 88 # 1329 1372 1429 1447 1459 1465 1468 

TBLEFT 81 # 752 1697 

TDBASE 16 # 1691 1700 1703 1756 1759 1762 1765 

TDCUR 78 # 387 402 698 1353 1378 1685 1774 1790 1793 

TEMP 94 ¢# 376 378 380 403 406 410 435 464 581 585 617 
622 630 632 634 636 638 640 643 7132 742 745 749 
950 995 1001 1048 1083 1093 1108 1118 1170 1210 1220 1310 


1325 1333 1344 1405 1491 1498 1517 1622 1624 1626 1628 1630 
1632 1634 1636 1638 1640 1642 1644 1646 1648 1650 1652 1706 
1722 1726 1752 1768 1771 1811 1814 1832 1853 1856 1859 1863 


1867 

TWBASE 15 # 460 485 518 522 666 689 721 

TWCUR 717 +# 382 468 496 500 532 544 547 557 564 677 711 
716 758 763 768 7176 179 

TWRAP 80 # 395 423 425 427 429 433 514 528 561 856 875 
961 976 1039 1058 1075 1161 1180 1202 1238 1285 1300 1462 
1513 1565 1571 1594 1681 1688 1694 1742 1778 1782 1828 

TWTOP 719 # 479 505 508 

(0) ALUB 99 # 

ADDRM 115 # 1348 1402 1408 

MSTZE 119 # 395 397 433 

RDBASE 110 # 425 685 814 819 906 914 927 935 947 955 968 
976 980 998 1043 1051 1055 1079 1086 1090 1111 1165 1173 
1177 1206 1213 1217 1340 1537 1565 1585 

RDCUR 112 # 429 681 853 859 866 875 879 902 923 961 965 
1058 1093 1180 1220 1235 1238 

RDLIMIT 117 # 431 824 830 856 1498 1503 1506 1517 1921. 1726 

RWBASE 109 # 423 1531 1556 1562 1571 

RWCUR 111 # 427 1265 1274 1285 1534 1575 1578 1590 1594 

RWRAP 116 # 387 389 391 808 931 995 1108 1270 1459 1510 1825 

RWTOP 113 # 694 1814 1818 1821 1832 

SNIFF 114 # 1333 1453 1465 1468 

TBLEFT 107 # 435 749 7152 1697 1771 

TDBASE 102 # 378 460 666 1378 1685 1694 1774 

TDCUR 104 # 382 406 698 1300 1310 1353 1681 1691 1778 1782 1790 
1793 

TEMP 120 # 402 403 410 464 $81 585 617 623 630 632 634 
636 638 640 643 7142 745 910 950 991 1001 1012 1032 


1035 1039 1048 1068 1071 1075 1083 1104 1118 1129 1154 1157 


+; VEX02.MCR[,] MICRO 20(156) MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 52 
7 CROSS REFERENCE LISTING 


1161 1170 1194 1197 1202 1210 1325 1329 1344 1369 1372 1382 
1390 1405 1429 1447 1462 1487 1491 1513 1622 1623 1624 1625 
1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 
1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 1649 
1650 1651 1652 1653 1688 1700 1703 1706 1722 1742 1752 1756 
1759 1762 1765 1768 1811 1828 1853 1856 1859 1863 1867 


TWBASE 101 # 376 485 721 176 

TWCUR 103 # 380 468 496 500 514 532 544 557 564 689 712 
732 758 7179 

TWRAP 106 # 393 547 716 764 769 958 1021 1138 

TWTOP 105 # 479 505 508 $18 522 528 561 677 

(U) ALUDEST 155 # 

BDOWN 161 # 387 389 391 393 395 397 582 585 

BQDOWN 160 # 

BQUP 162 # 

BRAM 159 # 376 378 380 382 423 425 427 429 431 435 464 
479 497 501 505 508 519 523 529 533 544 557 561 
564 617 690 732 7142 749 7153 7176 779 853 859 867 
875 880 961 977 991 1055 1058 1090 1093 1104 1177 1180 


1217 1220 1235 1238 1275 1285 1310 1325 1333 1344 1349 1453 
1465 1499 1503 1506 1517 1531 1534 1556 1571 1575 1579 1590 
1594 1688 1697 1727 1742 1771 1774 1790 1793 1814 1818 1821 
1832 1853 1863 

BRAMA 158 # 469 681 698 712 1266 1353 1622 1624 1626 1628 1630 
1632 1634 1636 1638 1640 1642 1644 1646 1648 1650 1652 1691 
1700 1756 1759 1762 1765 1768 


BUP 163 # 402 403 630 632 634 636 638 640 

NOP 157 # 407 410 461 486 $15 547 623 644 667 677 685 
694 717 722 759 764 769 808 825 831 856 902 906 
911 914 923 927 935 947 951 955 958 965 968 980 
995 998 1001 1012 1021 1032 1035 1040 1043 1048 1051 1068 


1071 1076 1079 1083 1086 1108 1111 1129 1138 1154 1157 1162 
1165 1170 1173 1194 1197 1203 1206 1210 1213 1271 1301 1329 
1340 1369 1373 1383 1390 1402 1405 1408 1429 1447 1468 1487 
1521 1537 1562 1565 1585 1623 1625 1627 1629 1631 1633 1635 
1637 1639 1641 1643 1645 1647 1649 1651 1653 1681 1703 1706 
1779 1783 1860 1868 


Q 156 # 433 745 814 819 932 1118 1378 1459 1462 1491 1510 
1513 1685 1694 1722 1752 1811 1825 1828 1856 
{U) ALUFN 125 # 
A 146 # 387 389 391 393 395 397 402 403 423 425 486 
581 585 632 634 636 638 640 643 689 721 7176 875 
910 947 976 1032 1035 1055 1058 1068 1071 1090 1093 1154 


1157 1177 1180 1194 1197 1217 1220 1238 1285 1329 1369 1372 
1382 1390 1402 1405 1408 1429 1447 1468 1487 1571 1594 1623 
1625 1627 1629 1631 1633 1635 1637 1639 1641 1643 1645 1647 
1649 1651 1653 1703 1706 1752 1774 


ADDAB 128 # 406 518 749 1453 1506 1821 1867 

ADDAQ 127 # 7152 1039 1075 1462 1503 1513 1688 1742 1818 1828 1859 
ADDDA 132 # 

ADDZA 131 # 382 427 429 468 544 564 630 681 961 991 1104 


1235 1265 1353 1531 1534 1556 1575 1579 1590 1622 1624 1626 
1628 1630 1632 1634 1636 1638 1640 1642 1644 1646 1648 1650 
1652 1790 1856 

ADDZB 130 # 698 712 


> VEXO02.MCR[,] MICRO 20(156) MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 53 
7 CROSS REFERENCE LISTING 


ADD2Q 129 # 

B 145 # 

D 147 + 464 479 505 508 T42 1325 1333 1348 1491 1722 1811 
1853 

NAANDB 151 # 528 561 

NAANDQ 150 # 

Q 144 # 435 1001 1048 1083 1170 1210 1465 1517 1700 1759 1765 
1768 1832 

SUBAB 139 # 433 460 515 522 547 666 677 685 694 716 764 
769 808 814 819 824 830 856 902 906 914 923 927 
935 955 958 965 968 980 995 998 1012 1021 1043 1051 


1079 1086 1108 1111 1129 1138 1165 1173 1206 1213 1270 1300 
1340 1378 1459 1510 1521 1537 1562 1565 1585 1681 1685 1694 
1778 1782 1825 


SUBAQ 138 # 1697 
SUBAZ 141 # 745 1863 
SUBBA 135 # 931 1771 
SUBDA 142 4 
SUBQA 134 # 1161 1202 
SUBZA 137 # 431 496 500 7158 853 859 866 879 1274 
SUBZB 136 # 
SUBZQ 140 # 950 1118 1498 1726 ©1756 1762 1814 
z 148 # 376 378 380 410 532 557 617 623 732 779 1310 
1344 1691 1793 
(U) BUFR_LOAD 242 4 
F 243 + 
T 244 # 807 950 955 1039 1048 1075 1083 1161 1170 1202 1210 


1300 1426 1623 1625 1627 1629 1631 1633 1635 1637 1639 1641 
1643 1645 1647 1649 1651 1653 1681 1694 1706 1768 


(U) BUFR_READ 237 4 
F 238 # 
T 239 # 479 505 508 716 742 763 7168 1270 1432 «14561471 
1491 =-:1722 1811 1853 
(U) CARRY 167 4 
F 168 # 382 427 429 461 469 515 523 544 547 630 667 
677 681 694 698 712 717 745 749 753 764 769 808 
825 831 856 903 924 951 958 961 965 991 995 1012 


1021 1104 1108 1118 1129 1138 1162 1203 1235 1266 1271 1301 
1340 1353 1459 1499 1510 1531 1534 53:1. 1557 1565 1575 1579 
1586 1591 1622 1624 1626 1628 1630 1632 1634 1636 1638 1640 
1642 1644 1646 1648 1650 1652 1682 1727 1756 1762 1790 1814 
1818 1821 1825 1856 1860 1863 1868 


T 169 # 431 433 497 501 759 853 859 867 880 1275 1378 
1685 1694 1697 1771 1779 1783 
(U) CLEAR _XIPR 310 #¢ 
F 311 ¢ 
T 312 # 1274 1382 1722 
(U) COND 50 # 
DBUS_LSB 54 # 581 592 
JUMP _ADDRS 65 # 
NEG 52 # 514 745 758 1012 1021 1129 1138 1447 1462 1498 1513 
1688 1726 1742 1774 1814 1828 1856 
RCON_REQ 66 # 670 673 
RUNNING .ATN_L 55 # 460 666 


RX_ENABLE_OUT.IN 53 # 496 500 


7; VEX02.MCR[, ] MICRO 20(156) MEIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 54 
7 CROSS REFERENCE LISTING 


RX_EOF.LBYTE 63 # 807 

TX_AVAIL_L.MBUS_VAL 58 # 485 1748 1752 

VECTOR REQ 67 # 437 472 475 554 557 564 588 596 599 613 626 
643 129 732 776 853 859 863 866 875 879 976 1058 


1093 1180 1220 1235 1238 1254 1274 1282 1285 1307 1310 1362 
1365 1372 1386 1411 1432 1456 1471 1494 1543 1546 1575 1578 
1598 1601 1653 1665 1790 1793 1832 1835 1859 1867 


ZERO 51 # 468 518 522 550 711 725 772 850 871 961 972 
991 1001 1032 1035 1068 1071 1104 1118 1154 1157 1194 1197 
1231 1265 1278 1304 1487 1540 1556 1571 1585 1590 1594 1685 
1786 

ZERO.FLUSH 56 # 814 819 824 830 

(U) DALU_READ 226 # 

F 227 + 

T 228 # 376 378 380 382 387 389 391 393 395 397 402 
403 406 410 423 425 427 429 431 433 435 460 468 
485 496 500 514 518 522 528 532 544 547 557 561 
564 581 $85 622 643 666 681 698 711 721 758 910 
931 947 950 955 1032 1035 1039 1048 1068 1071 1075 1083 


1154 1157 1161 1170 1194 1197 1202 1210 1265 1329 1353 1369 
1372 1382 1390 1402 1405 1408 1429 1447 1453 1459 1462 1465 
1468 1487 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 
1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 
1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1691 1694 
1700 1703 1706 1756 1759 1762 1765 1768 1859 1867 


(U) J 44 # 
IDLE 460 # 657 658 659 660 661 662 663 
IDLE.A 460 464 # 666 
IDLE.B 468 479 + 
IDLE.D 485 496 # 
IDLE.E 479 505 508 514 # 
IDLE.F 514 518 # 
IDLE.G 518 522 528 # 
IDLE.H 528 544 # 
IDLE .J 550 554 # 
IDLE .K 532 561 # 
INIT 370 # 1336 
INT.A 464 581 # 
INT.B 581 585 # 
INT.C 585 592 # 
INT.D 592 596 # 
R.FIELD 670 673 1319 # 
ROO 1325 1402 # 
ROL 1329 1426 # 
R02 1333 1447 # 
RO2ZA 1447 1453 # 
RO2B 1453 1459 # 
RO2C 1462 1465 # 
RO2D 1465 1468 1471 # 
RO4 1340 1487 # 
RO4A 1498 1503 # 1726 
RO4AA 1487 1491 # 
RO4AB 1491 1498 + 
RO4B 1503 1506 1510 # 
RO4C 1513 1517 # 


7 VEXO2 .MCR[, ] MICRO 20 (156) METS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 55 
+ CROSS REFERENCE LISTING 


RO4RDN 1521 1556 # 

RO4RDW 1517 1531 # 

RO4RNA 1556 1562 # 

RO4RNB 1565 1571 # 

RO4RNC 1571 1575 # 

RO4RND 1562 1585 # 

RO4RNE 1585 1590 # 

RO4RNE 1590 1594 1598 # 

RO4RWA 1540 1543 # 

RO5 1344 1622 # 

R06 1348 1665 # 

R07 1353 1681 # 

RO7VA 1685 1688 # 

RO7B 1691 1694 # 

RO7C 1688 1700 # 

RO7D 1703 1706 # 

R12 1369 1722 # 

R14 1378 1742 # 

R14A 1748 1752 1756 # 

R14AA 1742 1748 # 

R14B 1759 # 

R14C 1700 1756 1759 1762 1765 1768 # 

R14cc 1706 1771 = # 

R14D 1697 1774 # 

R14E 1774 1778 # 

R14F 1778 1782 1786 # 

R14G 1786 1790 # 

R15 1382 1811 # 

RISA 1814 1818 # 

R15B 1818 1821 1825 # 

R1iSC 1828 1832 # 

R17 1390 1853 # 

R17A 1856 1859 # 

R17B 1863 1867 # 

RCV.A 496 500 613 # 

RCV.B 622 626 # 

RCV.C 617 630 # 

v12 677 711 # 

V12A 711 716 # 

v12B 716 725 # 

vi2c 725 729 + 

v1l2D 721 742 # 

V12E 745 749 ¢# 

Vi2F 7149 752 158 # 

V12G 758 763 # 

V12H 763 768 172 «# 

V12Jd 7172 776 # 779 

v13 681 807 # 

V13A 807 814 # 

V13ABA 1231 1235 # 

VI3 ABT 685 906 914 927 935 968 980 998 1043 1051 1079 1086 
1111 1165 1173 1206 1213 1231 # 

V13E0B 819 923 # 

V13E0F 814 902 # 


V13N2A 1012 1068 # 


3 VEX02.MCR[,] MICRO 20 (156) METS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 56 
+ CROSS REFERENCE LISTING 


V13N2B 1071 1075 # 

V13N2C 1068 1083 # 

V13N2D 1075 1083 1090 # 

V13NRA 850 863 # 

V13NRB 856 871 # 

V13NRC 871 875 # 

V13NRM 824 830 850 # 

V1I3NWA 991 995 # 

V13NWB 995 1001 # 

V13NWC 1001 1012 # 

V13NWR 902 991 ¢ 

V1I3W2A 1021 1032 # 

V13W2B 1035 1039 # 

V13W2C 1032 1048 # 

V13W2D 1039 1048 1055 # 

V13WRA 950 958 # 

V13WRB 931 947 + 

V13WRC 961 965 # 

V13WRD 965 972 # 

V1I3WRE 972 976 # 

V13WRP 910 955 # 

vi15 689 1254 # 

v16 694 1265 # 

V16A 1265 1270 # 

V16B 1270 1278 + 

v16c 1278 1282 # 

v17 698 1300 # 

V17A 1304 1307 # 

V3BN2A 1129 1194 # 

V3BN2B 1194 1202 # 

V3BN2C 1197 1210 # 

V3BN2D 1202 1210 1217 + 

V3BNWA 1104 1108 # 

V3BNWB 1108 1118 # 

V3BNWC 1118 1129 # 

V3BNWR 923 1104 # 

V3BW2A 1138 1152 # 

V3BW2B 1154 1161 # 

V3BW2C 1157 1170 # 

V3BW2D 1161 1170 1177 + 

VECTOR 437 472 475 554 557 564 588 596 599 613 626 643 
653 # 729 732 776 853 859 863 866 875 879 976 1058 


1093 1180 1220 1235 1238 1254 1274 1282 1285 1307 1310 1362 
1365 1372 1386 1411 1432 1456 1471 1494 1543 1546 1575 1578 
1598 1601 1653 1665 1790 1793 1832 1835 1859 1867 


(U) LBYTE VALID 197 # 
F 198 + 
T 199 # 371 711 752 
(U) MACRO% 
BUFR_LOAD 245 # 807 950 955 1039 1048 1075 1083 1261 1170 1202 1210 


1300 1426 1623 1625 1627 1629 1631 1633 1635 1637 1639 1641 
1643 1645 1647 1649 1651 1653 1681 1694 1706 1768 

BUFR_READ 240 # 479 505 508 716 742 763 768 1270 1432 1456 1471 
1491 1722 1811 1853 

CLEAR STATUS 220 # 370 415 528 532 622 689 752 763 772 1546 1578 


> VEX02.MCR[,] MICRO 20(156) METIS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 57 
3; CROSS REFERENCE LISTING 


1601 1778 


CLEAR_XIPR 313 # 1274 1382 1722 

CRY_0 170 # 431 433 497 501 759 853 859 867 880 1275 1378 
1685 1694 1697 1771 1779 1783 

CRY_1 171 # 382 427 429 461 469 515 523 544 547 630 667 
677 681 694 698 712 717 745 749 753 764 769 808 
825 831 856 903 924 951 958 961 965 991 995 1012 


1021 1104 1108 1118 1129 1138 1162 1203 1235 1266 1271 1301 
1340 1353 1459 1499 1510 1531 1534 1537 1557 1565 1575 1579 
1586 1591 1622 1624 1626 1628 1630 1632 1634 1636 1638 1640 
1642 1644 1646 1648 1650 1652 1682 1727 1756 1762 1790 1814 
1818 1821 1825 1856 1860 1863 1868 
DALU_READ 229 # 406 410 468 485 581 585 622 643 681 698 711 

721 758 910 931 947 950 955 1032 1035 1039 1048 1068 
1071 1075 1083 1154 1157 1161 1170 1194 1197 1202 1210 1265 
1329 1353 1369 1372 1382 1390 1402 1405 1408 1429 1447 1465 
1468 1487 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 
1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 
1644 1645 1646 1647 1648 1649 1650 1651 1652 1653 1691 1694 
1700 1703 1706 1756 1759 1762 1765 1768 1859 1867 


DEBUG 230 # 376 378 380 382 387 389 391 393 395 397 402 
403 423 425 427 429 431 433 435 460 496 500 514 
518 522 528 532 544 547 557 561 564 666 1453 1459 
1462 

DUMP_REG 1617 # 1623 1625 1627 1629 1631 1633 1635 1637 1639 1641 1643 
1645 1647 1649 1651 1653 

JUMP _VECTOR 69 # 437 472 475 554 557 564 588 596 599 613 626 
643 729 7132 776 853 859 863 866 875 879 976 1058 


1093 1180 1220 1235 1238 1254 1274 1282 1285 1307 1310 1362 
1365 1372 1386 1411 1432 1456 1471 1494 1543 1546 1575 1578 
1598 1601 1653 1665 1790 1793 1832 1835 1859 1867 


LBYTE_VALID 200 # 371 711 752 

MPORT_LOAD 265 # 1270 1811 

MPORT_READ 260 # 1300 

NEXT_REG 1616 # 1622 1624 1626 1628 1630 1632 1634 1636 1638 1640 1642 
1644 1646 1648 1650 1652 

NI_BADRS RST 273 # 370 415 617 902 910 923 931 1231 

NI_COMMAND_LOAD 308 # 406 410 622 643 

NI_COMMAND_READ 303 # 418 464 

NI_DATA_LOAD 298 # 716 763 768 

NI_DATA_READ 293 # 415 807 

NI_MASK_ADRS_LOAD 278 # 1348 1402 1408 

NI_MASK_DATA_LOAD 288 # ©1405 

NI_MASK DATA_READ 283 # 1411 1665 

NI_RX_COMMAND_LOAD 328 # 410 622 643 

NI_RX_STATUS READ 324 ¢ 

NI_TX_COMMAND LOAD 330 # 406 

NI_TX STATUS READ 326 # ©6418 464 

RX_ENABLE 215 # 371 622 640 

RX_OVERFLOW 185 # 371 866 879 

RX_PKT_AVAIL 195 # 370 976 1055 1090 1177 1217 1546 1578 1601 

SET STATUS 221 # 514 588 599 640 711 721 768 866 879 976 1055 
1090 1177 1217 1782 

SLIDE_READ 235 # 1386 


TX_ACQ_ERR 180 # 371 588 599 


+ VEX02.MCR[,] 


; CROSS REFERENCE LISTING 


(U) 


(U) 


(0) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


TX_BUFR_AVAIL_L 
TX_EOF 

TX_REQ ENABLE 
XPORT_LOAD 


XPORT_READ 
MPORT_LOAD 

F 

T 
MPORT_READ 

F 

T 
NI_BADRS RST 

F 

T 
NI_COMMAND_LOAD 

F 

T 
NI_COMMAND_READ 

F 

ey 
NI_DATA_LOAD 

F 

Ay 
NI_DATA_READ 

F 

T 
NI_MASK_ADRS_LOAD 

F 

T 
NI_MASK_DATA_LOAD 

F 

T 
NI_MASK_DATA_READ 

F 

T 
NI_REG_SEL 

RX_REG 

TX_REG 
RX_ENABLE 

F 

T 
RX_OVERFLOW 

F 

aN 
RX_PKT_AVAIL 

F 

T 
SLIDE_READ 

F 

T 
STATUS 

F 


T 


MICRO 20(156) 


190 
205 
210 
255 
1726 
250 
262 
263 
264 
257 
258 
259 
270 
271 
272 
305 
306 
307 
300 
301 
302 
295 
296 
297 
290 
291 
292 
275 
276 
277 
285 
286 
287 
280 
281 
282 
319 
321 
322 
212 
213 
214 
182 
183 
184 
192 
193 
194 
232 
233 
234 
217 
218 
1601 
219 # 


Se OE 


ad 


371 
370 
370 
1362 
1859 
1325 


1270 


1300 


370 


406 


418 


716 


415 


1348 


1405 


1411 


410 


406 


371 


371 


370 


1386 


370 


1778 
514 
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763 
528 
415 
1365 
1867 
1333 


1811 


415 


410 


464 


763 


807 


1402 


1665 


622 


418 


622 


866 


976 


415 


588 


768 1778 1782 
532 721 
514 689 772 


1372 1378 1382 


1336 1344 1348 


617 902 910 


622 643 


768 


1408 


643 
464 


640 


879 


1055 1090 1177 


528 532 622 


599 640 711 


1386 


1426 


923 


1217 


689 


721 


1411 


1494 


931 


1546 


752 


768 


1432 


1498 


1231 


1578 


763 


866 


1456 


1681 


1601 


172 


879 


1471 


1546 


976 


1665 


1578 


1055 


; VEX02.MCR[,] 


7 CROSS REFERENCE LISTING 


(U) 


(U) 


(U) 


(U) 


(U) 


(U) 


TX_ACQ_ERR 
F 
T 

TX _BUFR_AVAIL_L 


TX_REQ ENABLE 
F 
T 
XPORT_LOAD 
F 
7 


XPORT_READ 
F 
T 
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1090 
177 
178 
179 
187 
188 
189 
202 
203 
204 
207 
208 
209 
252 
253 
254 
1726 
247 + 
248 # 
249 + 


Se SP OS Se SR Oe OOO OE HEC HEE HEE 


1177 


371 


371 


370 


370 


1362 
1859 


1325 


METIS 10MB ETHERNET DATA 


1217 1782 


588 599 

763 768 1778 
528 532 721 
415 514 689 


1365 1372 1378 
1867 


1333 1336 1344 
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1782 


772 


1382 1386 1411 1432 1456 


1348 1426 1494 1498 1681 


1471 


1665 


VEX02 .MCR[, ] 
LOCATION / LINE NUMBER INDEX 
DCODE LOC’N 0 1 


0000 


MICRO 20 (156) 


2 3 
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4 5 6 7 


3 VEX02.MCR[,] MICRO 20 (156) METS 10MB ETHERNET DATA UCODE - GFS/KSL PAGE 61 
5 LOCATION / LINE NUMBER INDEX 


; UCODE LOC’N 0 1 2 3 4 5 6 7 

1 0000 371 376 378 380 382 387 389 391 
u 0010 393 395 397 402 403 407 410 415 
u 0020 418 423 425 427 429 431 433 435 
u_ 0030 437 461 479 486 464 469 472 475 
u 0040 497 501 505 508 $15 544 519 523 
u 0050 529 533 947 550 554 557 561 564 
u_ 0060 582 592 585 588 596 599 630 632 
u 0070 613 617 623 626 634 636 638 640 
u 0100 644 712 717 722 725 742 729 732 
u 0110 745 759 749 153 764 769 7172 808 
u 0120 7176 779 863 867 814 819 825 831 
u_ 0130 850 853 856 859 871 947 875 880 
u 0140 903 906 911 914 924 927 932 935 
u 0150 951 955 958 961 965 968 972 991 
u 0160 977 980 995 998 1001 1055 1012 1021 
u 0170 1032 1035 1040 1043 1048 1051 1058 1090 
u 0200 1068 1072 1076 1079 1083 1086 1093 1104 
u 0210 1108 1211 1118 1177 1129 1138 1154 1157 
u 0220 1162 1165 1170 1173 1180 1217 1194 1197 
u_ 0230 1203 1206 1210 1213 1220 1231 1235 1238 
u 0240 1254 1266 1271 1275 1278 1301 1282 1285 
u_ 0250 1304 1402 1307 1310 1405 1408 1411 1426 
ue 0260 1429 1432 1447 1459 1453 1456 1462 1471 
u 0270 1465 1468 1487 1499 1491 1494 1503 1506 
u 0300 1510 1513 1517 1521 1531 1534 1537 1540 
u 0310 1543 1546 1557 1571 1562 1565 1575 1579 
u 0320 1586 1622 1591 1594 1598 1601 1623 1624 
u_ 0330 1625 1626 1627 1628 1629 1630 1631 1632 
u 0340 657 658 659 660 661 662 663 667 
u 0350 670 673 677 681 685 690 694 698 
u 0360 1325 1329 1333 1336 1340 1344 1349 1353 
u 0370 1362 1365 1369 1373 1378 1383 1386 1390 
u 0400 1633 1634 1635 1636 1637 1638 1639 1640 
u 0410 1641 1642 1643 1644 1645 1646 1647 1648 
u 0420 1649 1650 1651 1652 1653 1665 1682 1685 
u 0430 1688 1691 1694 1697 1700 1703 1706 1722 
u 0440 1727 1742 1748 1752 1756 1759 1762 1765 
u 0450 1768 1771 1774 1786 1779 1783 1790 1793 
v. 0460 1811 1814 1818 1821 1825 1828 1832 1835 
u 0470 1853 1856 1860 1863 1868 


no errors detected 
END OF MICRO CODE ASSEMBLY 
used 5.94 seconds 


